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FOREWORD 


This document is a task report prepared under Contract No. N00014-80-C- 
0409 for the Office of Naval Research, Washington, D.C. in support of the Naval 
Ocean Research and Development Activity (NORDA) Code 300, NSTL Station, 
Mississippi. The report presents user level instructions for executing each of 
five NORDA computer programs at a bench mark site using card decks and 
magnetic tapes that accompany this document. 


Ocean Data Systems is indebted to Mr. J. Roberts, NORDA Code 301, for 
providing recommendations in selecting the programs to be included in this bench 
mark package and for his general assistance in this effort. 
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ABSTRACT 


/ 

A suite of five NORDA computer programs has been selected to comprise 
the NORDA Bench Mark Package. The programs are coded entirely in CDC 
FORTRAN IV (except for one small assembly language function contained in the 
program AUTO-OCEAN). This document provides the user with information and 
instructions for executing each program at a bench mark site. Included with the 
Bench Mark Package are card decks and magnetic tapes, the contents of which 
are described herein. Sample inputs and outputs contained in this report were 
derived from these decks and tapes. 


It is virtually impossible to foresee every problem that may be encountered 
in transferring a program between computers. This document places special 
emphasis on the FORTRAN/Operating System interfaces that are most likely to 
be site dependent and thus create problems. Information presented in the main 
text of this report should be sufficient to implement minor job stream and/or 
FORTRAN coding changes to the computer programs included in the Bench Mark 
Package in order to adapt them to the on-site operating system. Should more 
substantial changes become necessary, additional documentation and information 
are provided in the appendices. 
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I. INTRODUCTION 


This manual, with accompanying magnetic tapes and card decks, comprises 
the Bench Mark Package of the Naval Ocean Research and Development Activity 
(NORDA). The purpose of this package is to assist the user in executing each 
program on the be’ :h mark computer. All programs were developed and 
currently execute on the CDC 6600/6700 system at the David Taylor Naval Ship 
Research and Development Center (DTNSRDC), Carderock, MD, under the 
following software: 


Operating System: NOS/BE 1.2 


UPDATE: Level 1.2-460 

Compiler: FIN 4.6 + 460 with optimization level 2 and ROUND 
= */ 

Loader: Cyber loader 1.3-460. 


The package consists of five programs, four of which execute in batch mode, and 
one which executes interactively. Four programs reside on tape; one is a 
FORTRAN punched card deck. Some of the programs are composed of several 
modules, each of which must be loaded and executed sequentially. Some of the 
modules are created by loading more than one binary file. Additionally some 
programs require data bases which must be transferred from tapes (provided with 
this package) to mass storage files prior to execution. Table I summarizes the 
Programs and data bases. All tapes included in this package are unlabeled, 7- 
track, 800 bpi, Scope Internal tapes. Program tapes are in Program Library* 
(PL) random format, i.e., they were created as the NEWPL output from 
UPDATE, and thus «an be attached as the OLDPL input to UPDATE on the bench 
mark computer. Each program library constitutes a binary record on tape. Data 
base tapes are written in various formats as appropriate. Table II summarizes 
the contents of all tapes included in the bench mark package. 


Included for each batch mode program is an execution deck that has been 
run successfully on the CDC 6600/6700 system at DINSRDC. For the interac- 
tive mode program, a card deck is provided to create and catalog the absolute 
(executable) object code. Each deck contains all the necessary commands to 
either execute or catalog a program, i.e., mount and access program and data 
tapes, create necessary data files on mass storage, call UPDATE, compile, load, 
execute or catalog the program, and purge data files that may have been 
cataloged. Additionally, all needed data cards are included. These decks will 
probably require modifications to the job streams before running at the bench 
mark site. Chapters II through VI present details of the decks and expected 
execution results. 


To be consistent, each vendor should execute the four batch mode 
programs in the order in which they appear in Chapters II through V of this 
document, i.e., (Ist) MPP, (2nd) AUTO-OCEAN, (3rd) NEWPE, and (4th) 
SYNACC. The interactive mode program, INTERACT, may be executed at any 
time. 


*Non-CDC vendors can be supplied with programs on cards and/or EBCDIC 
tapes. 
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Each program contains certain subroutine calls that may be site dependent 
and thus will require special attention at the bench mark site. These calls 
involve mostly the handling of random access and direct access mass storage 
files, and FORTRAN/Operating System interface(s) for attaching cataloged files 
and connecting a terminal to a file. Table Ill lists possible site dependent 
subroutine calls, the program from which the calls are made, and the purpose of 
the call. More detailed documentation is contained in Chapters Il through VI. 


Chapters Il through VI present detailed information for executing each of 
the five programs. Appendix A contains data regarding computer facility 
requirements that may be needed for the JOB cards at the bench mark site. 
Appendix B discusses a COMPASS coded function that exists in the PL for 
program AUTO-OCEAN. User level documentation for potential site dependent 
software is presented in Appendix C. Appendices D through H contain 
FORTRAN compilation listings of all program elements in each of the five 
programs that reference potentially site dependent routines. 
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tl. MPP 
H.1 General Information 


MPP is a batch mode program composed of five separate modules (subpro- 
grams) which must be executed sequentially. Communication between modules 
is achieved using scratch mass storage files which are automatically allocated by 
the operating system. The execution deck references the modules (in order of 
execution) as MPP1, MPP2, MPP3, MPP4, and MPP5. The program is coded 
entirely in FORTRAN IV. 


I].2 Location of Program 


The components of MPP comprise PL numbers | through 6 (binary records | 
through 6), inclusive, on program tape CK0713 and backup program tape CK0720. 
The five executable modules require six PL's because MPP] is created from PL's 
1 and 2 (see Table I). 


11.3) Job Stream 


The job stream included in the MPP execution deck and listed in Section 
II.5 with comments performs the following basic functions: mounts program tape 
CK0713, updates from PL's on tape, compiles, loads, and executes each module. 
Job stream « mands shown are those used on the DINSRDC CDC 6600/6700 1 
system. They may require modification at the bench mark site. ; 


11.4 Input 


MPP uses no external data bases. It is driven entirely by data cards. Each 
of the five executable modules has its own card input. MPP2 through MPP5 also 
read a scratch file written by the preceding modules. All necessary data cards 
are contained in the MPP execution deck and are listed in Section II.5. 


11.5 Execution Deck 


A listing of the MPP execution deck is presented in Figure 1 followed by 
comments. Numbers opposite card images in the figure coincide with the 
appropriate comment number. Job stream commands and data are identical to 
those which produced the output in Section II.6 on the CDC 6600/6700 system at 
DTNSF.DC. 


Il-1 


Comment Card 
: Number: Image: 
} = VSN+OLDPL®CKO7)3. 

i 2e- REQUEST eOLDPL oHY sNORING. /CKOT1L3/NORING/S 
3 = UPDATE oF oP eCCOMPILE. 
@ - REWINDsCOMPILE,. 
5 = FIN ITzsCOMPILE sLedsOPTe2.RsCFIELO,. 
6 - RETURNeCOMPILE. 
7 = UPDATE oF eh oCeCOMPILE. 
& = REWINDsCOMPILE, 
B - FINe TsCOMPILE ol 20e0PT=2eB=MPP 1. 
6 - RETURNeCOMPILE. 
9 - LOANDeCFIELD. 
10 - MPP). 
6 - RETURNeMPP] sCFIELOe 
1] - UPDATE oF oR sC=COMPILE} 
& - REWIND+COMPILE. 
l2- FINe T=COMPILE 0h 2000PT=2sB=MPP20 
6 - RETURN* COMPILE. 
13 - MPP2. 
6 - RETURNOMPP2. 
}4 = UPDATE oF o®sC=COMPILE 
& - PEWIND+COMPILE. 
15 - FINs T=COMPILE 0 2020PT=2982MPP36 
6 = RETURN*COMPILE. 
16 - MPP3, 
6 - RETURNeMPP3, 
17 - UPDATE of o&yCeCOMPILE. 
& - REWINDsCOMPILE. 
18 - FINe T=COMPILE eL20s0PT2=2eBshPPGe 
&- RE TURNs COMPILE. ! 
19 - MPPs, 
& = RETURNeMPPG. 
20 - UPDATE oF ok&eC2COMPILE. 
21 - UNLOADsOLOPL. 
& = REWINDeCOMPILE. 
22 = FINeT2COMPILE sL80s0PT2&2sB=MPPS. 
6 ~ RETURN®COMPILES 
23 - MPPS, 
6 ~ RETURN»MPPS. 

* a4 = 7/8/9 EN) OF RECORD CARD 

% 25 = 7/8/9 END OF RECORD CARO 

* 26 ~ 7/8/9 END OF RECORD CARD 

eT 0 
27 - 0.0 3 
27 ~- 0.0 1500. 100. 14697. 20006 1515S, 
e7 + 9 
eT = S00. 4 
?7 ~- 0.0 1501. 20. 3501.8 100. 1698.9 1500.6 3510. 
PT - 0 
27 ~ 1000. 0 
27 - END OF PROFILES, 
e7 - 2 1 
27 ~- 6.0 12000.0 500.0 9000. 
27 = 6.0 
27 = 3520 6.0 100.0 200.0 
* 98 - 7/8/9 ENO OF RECORD Card 


FIGURE 1: MPP EXECUTION DECK 


Comment 


Number: 

#29 = 7/8/9 
30 - 0 
30 - 1020 
30 - 0.0 
30 - 300. 

#3) = 7/879 

#32 - 7/8/79 
33 - 0 
33 - 0 

#34 - 7/8/9 

#35 - 7/8/79 
36 - 1 

#37 - 7/8/79 

#38 - 7/8/9 
a9 - 

39 - 100 
39 - 1 
39 - ] 
39 - } 
39 - SO. 

39 - 2 
39 - 35.0 

## HY o 


END OF RECORD CARD 
0 2 -2i 
-10. 
60.0 100. 
1000. 
Ex) OF RECORD CARD 
END OF RECORO CARD 


0 
END OF RECORD CARD 
END OF RECORD CARD 
1 
END OF RECORO CARD 
END OF RECORD CARD 


MPP NORDA BENCHMARK RUN. 


1.0 2.0 
1 


100.0 


6/7/849 END OF JOB CARD 


* This image represents a card with a 7/8/9 multi-punch in Col. 1. 


| ** This image represents a card with a 6/7/8/9 multi-punch in Col. 1. 


FIGURE 1: MPP EXECUTION DECK (continued) 


The following comments refer to card images in the MPP execution deck 


listed in Figure 1. 


Comment 
Number: 


1 
2 


Comment: 
Specify program tape to be used. 


Mount unlabeled program tape with local file name OLDPL. 
Density = 800 BPI (HY). No write ring. 


Create compile file from Ist PL on tape. 


This card is needed because UPDATE R option inhibits 
automatic rewind. 


Create the binary file CFIELD. 


i-3 


Comment 
Number: 


6 
7 
8 
9 


Comment: 

This is done to minimize mass storage usage. 

Create compile file from 2nd PL on tape. 

Create the binary file MPP1. 

Include CFIELD in the executable module MPP]. 

Load and execute MPPI. All system routines needed to 
complete the executable module are in system libraries that 
are automatically included by the loader. 

Create compile file from 3rd PL on tape. 

Create the binary file MPP2. 

Load and execute MPP2. All system routines needed to 
complete the executable module are in system libraries that 
are automatically included by the loader. 

Create compile file from 4th PL on tape. 

Create the binary file MPP3. 

Load and execute MPP3. All system routines needed to 
complete the executable module are in system libraries that 
are automatically included by the loader. 

Create compile file from 5th PL on tape. 

Create the binary file MPP4. 

Load and execute MPP4. All system routines needed to 
complete the executable module are in system libraries that 
are automatically included by the loader. 

Create compile file from 6th PL on tape. 

Program tape no longer needed. 

Create the binary file MPP5. 

Load and execute MPP5. All system routines needed to 


complete the executable module are in system libraries that 
are automatically included by the loader. 


Updates to CFIELD, if any, follow this card. Updates may be 
necessary to modify site dependent coding. 


Comment 
Number: 


25 


26 
27 


28 


29 
30 
31 


32 
33 
34 


35 
36 
37 


38 
39 
40 


11.6 Output 


The expected output from running the MPP execution deck is listed in 
Figure 2. 


Comment: 


Updates to MPP1, if any, follow this card. 


necessary to modify site dependent coding. 
Data for MPP1 follow this card. 


MPP! data cards. 


Updates to MPP2, if any, follow this card. 


necessary to modify site dependent coding. 
Data for MPP2 follow this card. 


MPP2 data cards. 


Updates to MPP3, if any, follow this card. 


necessary to modify site dependent coding. 
Data for MPP3 follow this card. 


MPP3 data cards. 


Updates to MPP4, if any, follow this card. 


necessary to modify site dependent coding. 
Data for MPP4 follow this card. 


MPP4 data card. 


Updates to MPP5, if any, follow this card. 


necessary to modify site dependent coding. 
Data for MPP5 follow this card. 
MPP5 data cards. 
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1.7 Site Dependent Software 


MPP contains FORTRAN code which may be site dependent. This code is 
in the form of subroutine calls to system routines that are not included in the PL 
provided in this package. Most of these calls involve the FORTRAN interface 
with the Record Manager at DTNSRDC and are used in defining and referencing 
direct access mass storage files. It is possible that these subroutines may have 
different names and/or argument lists at the bench mark site. Table IV lists 
candidate site dependent subroutines and the exact location in MPP at which 
: each subrouiine call is generated. 


The user should reference Table IV and determine if any candidate 
subroutines are inappropriate at the bench mark site. For each site dependent 
subroutine found, the following course of action is recommended to modify the 


execution deck: 


1. Determine the appropriate subroutine call and argument list to per- 
form the desired function at the bench mark site. (Table Ill, page I-7, 
lists the purpose of each subroutine call). 


2. Prepare the necessary update cards to delete the existing call state- 
ment and replace it with the proper call. Certify that names given to 
variables in the updates are consistent with existing names. To assist 
the user in this, Sections II.7.1 through II.7.6 reproduce each subrou- 
tine call exactly as it appears in the FORTRAN compilation listing. 
Each argument in the call list is discussed. Additionally, Appendix D 
contains the complete compilation listing of each program element 
(main program, subroutine, etc.) that references a possible site depen- 
dent subroutine, and Appendix C contains user leve! documentation for 
each possible site dependent subroutine. 


3. Insert update cards in the MPP execution deck. For every PL on the 
program tape accessed by UPDATE there is a "7/8/9" card in the 
execution deck to satisfy the UPDATE command. Each of these 
"7/%/9" cards is annotated with the name of a PL. Insert the update 
cards immediately following the "7/8/9" card with the name of the PL 

which contains the site dependent feature being modified. 


TABLE IV: LOCATION OF POSSIBLE SITE DEPENDENT 
SOFTWARE IN MPP 


PL or 
Program 
Name 


Possible Site 
Dependent 
Subroutine 


Program 
Element 


Line 
N Line ID 


CLOSEM MPP2 SUBROUTINE CTL2 1369 | 15AUG78.110 
15AUG78.115 


oO. 
MPP3 PROGRAM MAIN 15AUG78.46 
DATE MPP5 SUBROUTINE CTL3 17JAN75.10 
151 
166 


FILEDA MPP2 SUBROUTINE CTL2 | 1st | 15AuG78.59 | 

me Pe ana 
OPENM MPP2 SUBROUTINE CTL2 154 
Fie iver 


MPP3 PROGRAM MAIN 15AUG78.40 
MPP2 SUBROUTINE CTL2 1327) | 15AUG78.101 


11.7.1 CLOSEM references 
FORTRAN Statement: Line ID: 
CALL CLOSEM (NEWFIT) 15AUG78 110 
Argument List: 


NEWFIT - A 35-word typeless array used as a File Information Table 
defined in a prior call to FILEDA. 


FORTRAN Statement: Line ID: 
IF (INTAPE .GT. 0) CALL CLOSEM (OLDFIT) 15AUG78 115 
Argument List: 


OLDFIT -- A 35-word typeless array used as a File Information Table 
defined in a prior call to FILEDA. 


FORTRAN Statement: Line ID: 
CALL CLOSEM (ARVFIT) 15AUG78 46 


Argument List: 


ARVFIT ~ <A 35-word typeless array used as a File Information Table 
defined in a prior call to FILEDA. Located in COMMON 
ARVDA. 


Il.7.2 DATE references 
FORTRAN Statement: Line ID: 
CALL DATE (IDATE) I7JAN75 = 10 
Argument List: 


IDATE ~— Current date returned by DATE in the form 
10Hbmm/dd/yy6 (represents a blank character). 


11.7.3 FILEDA references 


FORTRAN Statement: Line ID: 


Pa FILEDA(OLDFIT, 3LLFN,6LGRPAR2,2LFO,2LDA,2LRT,ILF,3LMRL,70, 1SAUG78 39 
3LMNR ,70,2LRB,500,3LHMB,100,2LKL, 10,2LKT,1ILI) 15AUG78 60 
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Argument List: 


OLDFIT - A 35-word typeless array used as a File Information 
Table and defined by FILEDA. 

3LLFN -— Informs FILEDA that next argument defines logical file 
name. 

6LGRPAR2 — Logical file name is GRPAR2. 

2LFO - Next argument defines file organization. 

2LDA - File organiz2.ion is direct access. 

2LRT — Next argument defines record type. 

ILF - Record type is fixed length. 

3LMRL -— Next argument is maximum record length. 

70 -- Maximum record length is 70 characters. 

3LMNR -- Next argument is minimum record length. 

70 -— Minimum record length is 70 characters. : 

2LRB -- Next argument is number of records per block. 

500 -— Number of records per block is 500. 

3LHMB — Next argument is number of home blocks. 

100 -- Number of home blocks is 100. 

2LKL — Next argument is key length. 

10 - Key length is 10 characters. 

2LKT - Next argument is key type. 

ILI -- Key type is integer. 

Note: According to the Record Manager documentation, key 
type does not apply to direct access files. Apparently it 
has no effect on FILEDA. 

FORTRAN Statement: Line ID: 
CALL FILEDA(NEWFIT, 3LLFN,6LGRPARV,2LFO,2LDA,2LRT,ILF,3LMRL,70, 1SAUG78 70 


3LMNR,70,2LRB,500,3LHMB,100,2LKL,10,2LKT,ILI) 15AUG78 71 
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a aaa an 


Argument List: 


NEWFIT - A 35-word typeless array used as a File Information 
Table and defined by FILEDA. 
3LLFN — Informs FILEDA that next argument defines logical file 
name. 
6LGRPARV -— Logical file name is GRPARV. 
Note: All remaining arguments are identical to those discussed 


above for FILEDA reference at Line ID 15 AUG 78.59. 


FORTRAN Statement: Line JD: 
LL FILEDA(ARVFIT ,3LLFN,6LGRPARV,2LFO,2LDA,2LRT,ILF,3LMRL,70, }5AUG7& 37 
— 3LMNR,70,2LRB,500,3LHMB,100,2LKL,10,2LKT, ILI) 15AUG78 38 | 


Argument List: 


ARVFIT — <A 35-word typeless array used as a File Information 
Table and defined by FILEDA. It is in COMMON 
ARVDA. 

3LLFN - Informs FILEDA that next argument defines logical file 
name. 


6LGRPARV -— Logical file name is GRPARV. 


Note: All remaining arguments are identical to those discussed 
above for FILEDA reference at Line ID 15AUG78.59, 


11.7.4 GET references 
FORTRAN Statement: Line ID: 
CALL GET (OLDFIT, ARVRE2, KEYOLD, 0) 15AUG7& 79 
Argument List: 


OLDFIT —- A 35-word typeless array used as a File Information 


ARVRE2 A 7-word real array into which data is to be transferred. 


Output from GET. 


KEYOLD 


Integer key for access to record. Input to GET. 


0 -- Character position within KEYOLD that key begins. 
Input to GET. 
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FORTRAN Statement: Line ID: 
CALL GET(ARVFIT,ARVREC,IARVK,0) I5AUG78 115 
Argument List: 
ARVFIT — A 35-word typeless array used as a File Information 
Table and defined in a prior call to FILEDA. It is in 
COMMON ARVDA. 


ARVREC — A 7-word real array into which data is to be transferred. 
Output from GET. 


IARVK — Integer key for access to record. Input to GET. 
0 -- Character position within IARVK that key begins. Input 
to GET. 


11.7.5 OPENM references 
FORTRAN Statement: Line ID: 
CALL OPENM (OLDFIT, 5LINPUT) 15AUG7& 62 


Argument List: 


OLDFIT -— A 35-word typeless array used as a File Information 
Table and defined in a prior call to FILEDA. 
SLIN PUT — Open file as read only file. 
FORTRAN Statement: Line ID: 
CALL OPENM (NEWFIT, 3LNEW) I5AUG78& 73 


Argument List: 


NEWFIT -~ A 35-word typeless array used as a File Information 
Table and defined in a prior call to FILEDA. 
3LNEW - Open file for purpose of creation. 
FORTRAN Statement: Line ID: 
CALL OPENM (ARVFIT, 5LINPUT) 15AUG78 40 
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Argument List: 


ARVFIT — A 35-word typeless array used as a File Information 
Table and defined in a prior call to FILEDA. It is in 
COMMON ARVDA. 


3LINPUT -— Open the file as a read only file. 
Il.7.6 PUT references 
FORTRAN Statement: Line ID: 
CALL PUT (NEWFIT, ARVREC) 15AUG78& 101 
Argument List: 


NEWFIT — A 35-word typeless array used as a File Information 
Table and defined in a prior call to FILEDA. 


ARVREC — A 7-word real array from which data is to be trans- 
ferred. Input to PUT. 


11-38 


Hl. AUTO-OCEAN 
fif.l General Information 


AUTO-OCEAN is a batch mode program consisting of a single executable 
module referenced as AUTOOC in the execution deck. It is preceded by two 
small! utility programs which generate data bases needed by AUTO-OCEAN. The 
program is coded in FORTRAN IV except for the integer function FIELD which is 
a COMPASS coded routine contained in the AUTO-OCEAN PL on the program 
tape. If the FORTRAN compiler at the bench mark site cannot accept a 
COMPASS routine intermingled with FORTRAN subroutines, the following 
modifications should be made to the execution deck: 


l. Remove FIELD from the AUTOOC PL with the UPDATE directive 
"VY ANKDECK FIELD.” 


2. Punch function FIELD from its symbolic listing presented in Appendix 
B. 


Insert the punched cards and necessary job stream instructions to 
assemble FIELD separately and include it when loading AUTOOC. 


III.2 Location of Program 


The PL for AUTO-OCEAN is the 7th PL (7th binary record) on program 
tape CK0713 and backup program tape CK0720. The two utility programs exist 
as FORTRAN punched card decks within the AUTO-OCEAN execution deck. 


HI.3 Job Stream 


The job stream included in the AUTO-OCEAN execution deck and listed in 
Section 111.5 with comments performs the following basic functions: mounts 
backup data tape CK0932, compiles and executes utility programs BSCRAM and 
PSCRAM from cards to create scratch mass storage data base files, mounts 
backup program tape CK0720, updates from the PL on the program tape, 
compiles, then loads and executes AUTOOC twice. The first execution is long 
and generates much listable output which is written to the dummy file OUT. The 
second execution is shorter and generates a more manageable output which is 
printed (see Section III.6). Job stream commands shown are those used on the 
DTNSRDC CDC 6600/6700 system. They may require modification at the bench 
mark site. 


111.4 Input 


AUTO-OCEAN uses two external data bases referred to as BATHY and 
PROFILES. Both files exist as permanent cataloged mass storage files on the 
CDC 6600/6700 system at DTNSRDC, but for the purpose of executing at the 
bench mark site they are generated from tape as temporary files on mass storage 
by two utility programs within the execution deck. Program BSCRAM creates 
the direct access file BATHY; program PSCRAM creates the random access file 
PROFILES. AUTO-OCEAN also requires card input which is included in the 
execution deck. BSCRAM and PSCRAM require no cards. All necessary data 
cards are contained in the AUTO-OCEAN execution deck and are listed in 
Section III.5. 


HI.5 Execution Deck 


A listing of the AUTO-OCEAN execution deck is presented in Figure 3 
followed by comments. Numbers opposite card images in the figure coincide 
with the appropriate Comment number. Job stream commands and data are 
identical to those which produced the output in Section IIIl.6 on the CDC 
6600/6700 system at DINSRDC. 


Comment Card 
Number: Image: 
oon LN, 
1 - VSNe TAPE A=CK0932+0LDOPL#CK07 206 
2 - REQUEST + TAPE AsHY eNORINGS 7CKO9327NORING/S 
3 - COPYBF sTAPEASTAPESOe 
& - FINe8=3.8=BSCRAM. 
S - BSC&AM. 
6 - RETURN®BSSCRAM, 
7 - COPYAF eTAPEAsTAPES]~ 
B - UNLOAD TAPEA. 
Q — FINeR=3eR=PSCRAM. 
10 - PSC2AM. 
6 - RETURN®PSCRAM, 
1) — REQUEST+OLDPL Hy sNORINGe /CKOTZ0/NORINGS 
12 - COPYAR*OLOPL »DUMeb~ 
6 - RETURNeDUMe 
}3 — UPDATE oF »®eC=COMPILE. 
14 - UNLOADSOLOPLe 
1S - REWINDsCOMPILEs 
16° FINe T=COMPILE ol 2020PT22eB=AUTOOC. 
6 - RETURN®COMPILEs 
17 -— AUTIOC es eOUT. 
18 - AUTOOC. 
#19 - 7/8/79 END OF RECORD CARD 
20 - PROGRAM BSCRAM (OUTPUT » TAPESO + TAPES] oe TAPES) 
20 = OTYENSTON KEY (289) #DAT] (640) sDAFIT (35) eDAT2 (541) 
20 - Cc ENVIRONMENT FILE TO RANDOM(DA) FORMAT 
20 7 REwIND SO 
20 - CALL FILEDA(DAFITs3LLFN»SLBATHY s2LFOe2LDAs2LRToILF oe 3SLMRL» S10» 
20 > bal 3LMNF 65410e2LKL 910° 3LHMB 2202 3LMBL 027250) 
20 - CALL OPENM(DAFITs3tNEw? 
20 > DO 20 12148 
20 - AKF Y=] 
20 - RE40(50) DAT 
20 - CALL PUT (DAFITsDAT2) 
20 - 20 CONTINUE 
20 - END 
#2) - 7/8/9 END OF RECORD CARD 
a2- PROGRAM PSCRAM (OUTPUT s TAPESOs TAPES] 9 TAPES s TAPEGBOUTPUT) 
5 - ¢ THIS PROGRAM CONVERTS A SEQUENTIAL AUTOSOCEAN PROFILE FILE 
a2 -C TO a RANDOM FILE FOR USE BY AUTO-OCEAN. 
- C 
se - DIMENSION KEY (289) eDAT1 (640) eDAT2 (541) DAF IT (35) 
22 - RE@INO 5) 
22-7 CALL OPENMS (8eKEY 228900) 
22-7 DO 10 121+288 
22° READ(S)) OAT) 
@e° CALL WRITMS (8eDAT15640¢29~-190) 
22 - 10 CONTINUE 
22- ENO 
#23 - 7/8/79 END OF RECORD CARD 


FIGURE 3: AUTO-OCEAN EXECUTION DECK 
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Comment Card 
Number: Image: 
* 24 ~ 7/8/9 END OF RECORD CARD 
25 = AUTO-OCE AN NORDA BENCHMARK TRACK } 
25 - 1020 N150.0 £30. 3000. WINTER 
25 - AUTO-OCEAN NORDA SENCHMARK TRACK 2 
25 ~- 50.0 N160.0 £135.20 3000. SPRING 
25 - AUTO-OCEAN NOXDA BENCHMARK TRACK 3 
75 - 10.0 N180.0 w325.0 3000. SUMMER 
, 25 = AUTO-OCEAN NOXDA BENCHMARK TRACK & 
} 25 - 5060 N175.0 #225.0 3000. FALL 
25 - AYTO-OCEAN NORDA BENCHMARK TRACK 5 
25 - 10.0 N155.0 W520 3000. WINTER 
25 - AUTO-OCEAN NORDA BENCHMARK TRACK 6 
25 - 5020 N150.0 160.0 3000. SPRING 
25 = AUTU-OCEAN NORDA BENCHMARK TRACK 7 
25 = 3000 N7020 wW56.0 3000. SUMMER 
; 25 - AUTO-OCEAN NORDA BENCHMARK TRACK 8 
25 - 2000 N60.0 #450 3000. FALL 
25 - AUTO-OCEAN NORDA BENCHMARK TRACK 9 
25 = 1060 N5500 455.0 3000. WINTER 
; 25 - AUTO=0CEAN NORDA BENCHMARK TRACK 10 
‘ PS = 4000 N60.0 w135.0 3000. SPRING 
: 25 - AUTO“OCEAN NORDA BENCHMARK TRACK 3} 
25 = 6000 N1500 W210,0 3000. SUMMER 
{ 25 - BuTO-OCEAN NORDA BENCHMARK TRACK 12 
25 = 34006 N3320 £275. 3000. FALL 
' 25 = AUTO-OCEAN NORDA BENCHMARK TRACK 13 
25 - 0.0 N5000 £20.0 3000. WINTER 
* 26 - 7/8/9 END OF RECORD CARD 
27 = AUTO-OCEAN NORDA BENCHMARK TRACK A 
27 = 1000 N3000 345.0 3000. SUMMER 
** 28 = 6/7/R/9 END OF JOR CAKD 


* This image represents a card with a 7/8/9 multi-punch in Col. 1. 


** This image represents a card with a 6/7/8/9 multi-punch in Col. 1. 


FIGURE 3: AUTO-OCEAN EXECUTION DECK (continued) 


The following comments refer to card images in the AUTO-OCEAN 
execution deck listed in Figure 3. 


Comment 
Number: 


l 
2 


Comment: 
Specify data and program tapes to be used. 


Mount unlabeled data tape with local file name TAPEA. 
Density = 800 BPI (HY). No write ring. 


Copy Ist file to scratch file TAPE50 for input to 
program BSCRAM. 


Create the binary file BSCRAM from FORTRAN 
punched card deck. 


Load and execute BSCRAM. All system routines needed 
to complete the executable module are in system librar- 
ies that are automatically included by the loader. 


This is done to minimize mass storage usage. 


Copy 2nd file to scratch file TAPE51 for input to 
program PSCRAM. 


Data tape no longer needed. 


Create the binary file PSCRAM from FORTRAN 
punched card deck. 


Load and execute PSCRAM. All system routines needed 
to complete the executable module are in system librar- 
ies that are automatically included by the loader. 


Mount unlabeled program tape with local file name 
OLDPL. Density = 800 BPI (HY). No write ring. 


Position program tape before the 7th PL, i.e., the 7th 
binary record. 


Create compile file from 7th PL on tape. 
Program tape no longer needed. 


This card is needed because UPDATE R option inhibits 
automatic rewind. 


Create the binary file AUTOOC. 
Load and execute AUTOOC. Send listable output to 
dummy file OUT. All system routines needed to com- 


plete the executable module are in system libraries that 
are automatically included by the loader. 


Wi-4 


Comment 
Number: 


18 


28 


Il.6 Output 


The expected output from running the AUTO-OCEAN execution deck is 
listed in Figure 4. 


Comment: 

Load and execute AUTOOC. Print listable output. All 
system routines needed to complete the executable mod- 
ule are in system libraries that are automatically inclu- 
ded by the loader. 

Program BSCRAM follows this card. 

BSCRAM FORTRAN program cards. 

Program PSCRAM follows this card. 

PSCRAM FORTRAN program cards. 


Updates to AUTOOC, if any, follow this card. Updates 
may be necessary to modify site dependent coding. 


Data for AUTOOC (Ist execution) follow this card. 
AUTOOC data cards (Ist execution). 
Data for AUTOOC (2nd execution) follow this card. 
AUTOOC data cards (2nd execution). 


End of deck, 
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III.7 Site Dependent Software 


AUTO-OCEAN and its two utility programs contain FORTRAN code which 
may be site dependent. This code is in the form of subroutine calls to system 
routines that are not included in the PL provided in this package. These calls 
involve the FORTRAN interface with the Record Manager at DTNSRDC and are 
used in defining and referencing direct access and random access (word addressa- 
ble) mass storage files. It is possible that these subroutines may have different 
names and/or argument lists at the bench mark site. Table V lists candidate site 
dependent subroutines and the exact location in AUTO-OCEAN at which each 
subroutine call is generated. 


The user should reference Table V and determine if any candidate 
subroutines are inappropriate at the bench mark site. For each site dependent 
subroutine found, the following course of action is recommended to modify the 
execution deck: 


1. Determine the appropriate subroutine call and argument list to per- 
form the desired function at the bench mark site. (Table Ill, page I-7, 
lists the purpose of each subroutine call). 


2. Prepare the necessary update cards to delete the existing cal! state- 
ments and replace it with the proper call. Certify that names given to 
variables in the update are consistent with existing names. To assist 
the user in this, Sections II].7.1 through III.7.6 reproduce each subrou- 
tine call exactly as it appears in the FORTRAN compilation listing. 
Each argument in the cali fist is discussed. Additionally, Appendix E 
contains the complete compilation listing of each program element 
(main program, subroutine, etc.) that references a possible site depen- 
dent subroutine, and Appendix C contains user level documentation for 
each possible site dependent subroutine. 


3. Insert update cards in the AUTO-OCEAN execution deck. For every 
PL on the program tape accessed by UPDATE there is a "7/8/9" card 
in the execution deck to satisfy the UPDATE command. Each of these 
"7/8/9" cards is annotated with the name of a PL. Insert the update 
cards immediately following the "7/8/9" card with the name of the PL 
which contains the site dependent feature being modified. For 
changes to BSCRAM and PSCRAM, simply replace the existing FOR- 
TRAN cards in the execution deck with the appropriate new cards. 
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TABLE V: LOCATION OF POSSIBLE SITE DEPENDENT 
SOFTWARE IN AUTO-OCEAN 


Possible Site PL or 

Dependent Program Program Line 

Subroutine Name Element No. Line ID 
FILEDA BSCRAM PROGRAM BSCRAM fs | Nat 


AUTOOC 


“SUBROUTINE LOOKUP pis | AUTOC.324 


SUBROUTINE LOOKUP 28 | AUTOC. 334 


AUTOOC 


AUTOC.345 


BSCRAM 


OPENM PROGRAM BSCRAM 


AUTOOC 


PSCRAM 


“su BROUTINE LOOKUP 


PROGRAM PSCR AM 


OPENMS 


AUTOOC 


BSCRAM 


AUTOOC 


SUBROUTINE RETREV AUTOC.490 
SUBROUTINE RETREV aa AUTOC.419 


PROGRAM PSCRAM NA* 


READMS 


WRITMS PSCRAM 


* Not applicable. Line ID's are generated by UPDATE. Since these lines 
of code exist on cards only, they have no Line ID. 
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I1.7.1 FILEDA references 
FORTRAN Statement: (from PROGRAM BSCRAM, Line Nos. 5 & 6) 


CALL FILEDA(DAFIT,3LLFN, SLBATHY,21.FO,2LDA,2LRT,ILF ,3LMRL,5410, 
#3LMNR,5410,2LKL,10,3LHMB,20,3LMBL, 27250) 


Argument List: 


DAFIT — A 35-word typeless array used as a File Information 
Table and defined by FILEDA. 


3LLFN - Informs FILEDA that next argument defines logical file 
name. 

SLBATHY -- Logical file name is BATHY. 

2LFO -- Next argument defines file organization. 

2LDA -- File organization is direct access. 

2LRT -- Next argument defines record type. 

LF -- Record type is fixed length. 

3LMRL — Next argument is maximum record length, 

5410 -- Maximum record length is 5410 characters. 

3LMNR -~ Next argument is minimum record length. 

5410 -~ Minimum record length is 5410 characters. 

2LKL — Next argument is key length. 

19 -~ Key length is 10 characters. 

3LHMB -~ Next argument is number of home blocks. 

20 -~ Number of home blocks is 20. 

3LMBL —~ Next argument is home block length. 

27250 -- Home block length is 27250 characters. 

FORTRAN Statement: Line ID: 


CALL FILEDA(DAFIT, 3LLFN, SLBATHY,2LFO,2LDA,2LRT,ILF,3LMRL, 5410, AUTOC 324 
X 3LMNR ,5410,2LKL,10,3LHMB,20,3LMBL,27250) AUTOC = 325 


HI-11 


Argument List: 


Note: All arguments are identical to those discussed above for 
FILEDA reference at lines 5 and 6 of PROGRAM BSCRAM. 


HI.7.2 GET refere.ces 
FORTRAN Statement: Line ID: 
CALL GET (DAFIT, DI, EKEY, 0) AUTOC 334 
Argument List: 


DAFIT - A 35-word typeless array used as - File Information 
Table and defined in a prior call to FILEDA. 


DI -- A 541-word real array into which data is to be trans- 
ferred, Output from GET. 


EKEY -- Real key for access to record. Input to GET. 


0 -- Character position within EKEY that key begins. Input 
to GET. 


rORTRAN Statement: Line ID: 
CALL GET (DAFIT, D2, WKEY, 0) AUTOC 345 
Argument List: 


DAFIT - A 35-word typeless array used as a File Information 
Table and defined in a prior call to FILEDA. 


D2 -- A 541-word real array into which data is to be trans- 
ferred. Output from GET. 


WKEY — Real key for access to record. Input to GET. 
0 -— Character position within WKEY that key begins. Input 
to GET. 


I.7.3 OPENM references 
FORTRAN Statement: (from PROGRAM BSCRAM, Line No. 7) 


CALL OPENM (DAFIT, 3LNEW) 
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Argument list: 


DAFIT -— A 35-word typeless array used as a File Information | 
Table and defined in a prior call to FILEDA. 


3LNEW - Open file for purpose of creation. 
FORTRAN Statement: ! Line ID: 
CALL OPENM (DAFIT, 5LINPUT) AUTOC = 326 


Argument List: 


DAFIT - A 35-word typeless array used as a File Information 
Table and defined in a prior call to FILEDA. 


SLIN PUT -- Open file as read only file. 
II.7.4 OPENMS references 
FORTRAN Statement: (from PROGRAM PSCRAM, Line No. 8) : 
CALL OPENMS (8, KEY, 289, 0) 


Argument List: 


8 -- File unit designator. Input to OPENMS. 
KEY - A 289-word integer array to contain master index. Input to 
OPENMS. 
289 -- Length of master index is 289 words. Input to OPENMS. 
0 -- File is to have number type master index. Input to OPENMS. 
| FORTRAN Statement: Line ID: 
IF (.NOT.OPEN) CALL OPENMS (NUNIT, KEY, 289, 0) AUTOC — 400 


Argument List: 


NUNIT -- Integer file unit designator. Input to OPENMS. 


KEY — A 289-word integer array to contain master index. Input to 
OPENMS. 


289 -— Length of master index is 289 words. Input to OPENMS. 


0 - File is to have number type master index. Input to OPENMS. 
HI.7.5 PUT references 
FORTRAN Statement: (from PROGRAM BSCRAM, Line No. 11) 
CALL PUT (DAFIT, DAT2) 
Argument List: 


DAFIT -— A 35-word typeless array used as a File Information Table 
and defined in a prior call to FILEDA. 


DAT2 — A 541-word real array from which data is to be transferred. 
Input to PUT. 


HI.7.6 READMS references 


FORTRAN Statement: Line ID: 


IF(IBD.NE.IBIN) CALL READMS (NUNIT, DATA, 640, IBD) AUTOC 


Argument List: 


NUNIT —_ Integer file unit designator. Input to READMS. 

DATA -— A 649-word real array into which data is to be transferred. 
Output from READMS. 

640 -- Number of words to be transferred. Input to READMS. e 

IBD — Integer number key for access to record. Input to READMS. 


Il.7.7 WRITMS references 
FORTRAN Statement: (from PROGRAM PSCRAM, Line No. 11) 
CALL WRITMS (8, DATI, 640, I, -1,0) 
Argument List: 
8 — File unit designator, Input to WRITMS. 


DATI —- A 640-word real array from which data is to be transferred. 
Input to WRITMS. 


640 -- Number of words to be transferred. Input to WRITMS. 


419 


integer number key for access to record. Input to WRITMS. 
Rewrite in place if new record length does not exceed old 
record length, otherwise write at end of information. Input 
to WRITMS. 


No sub-index marker flag. Input to WRITMS. 
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IV. NEWPE 


IV.1 General Information 


NEWPE is a batch mode program consisting of a single executable module 
referenced as NEWPE in the execution deck. It must be preceded by the 
executable module INFACE. Communication between INFACE and NEWPE is 
achieved using a scretch mass storage file which is allocated automatically by 
the operating svstem. Both programs are coded entirely in FORTRAN IV. 


IV.2. Location of Program 


The components of INFACE are PL numbers 8 and 9 (binary records § and 
9) on program tape CK90713 and backup program tape CK972% NEWPE is the 
}Oth PL (19th binary record) on the program tape and the backup program tape. 


IV.3) Jo>d Stream 


The job stream included in the NEWPE execution deck and listed in Section 
IV.5 with comments performs the following basic functions: mounts program 
tape CK5713, updates from PL's on program tape, compiles, loads and executes 
INFACE first, then NEWPE. Job stream commands shown are those used on the 
DTNSRDC CDC 6699/6799 system. They may require modification at the bench 
mark site. 


NEWPE requires no external data bases in the bench mark package. It is 
driven Sy data cards, as is INFACE which is executed immediately before 
NEWPE. NEWPE also reads a scratch mass storage file created by INFACE. All 
necessary data cards are contained in the NEWPE execution deck and are listed 
in Section IV.5. 


IV.5 Execution Deck 


A listing of the NEWPE execution deck is presented in Figure 5 followed by 
comments. Numbers opposite card images in the figure coincide with the 
-ppropriate comment number. Job stream commands and data are identical to 
those which produced the output in Section IV.6 on the CDC 6600/6700 system at 
DTNSRDC. 


ng 


Comment Card 
Number: Image 


ee —_  e 


1 - VSNeOLOPL=CKO72 36 
er REQUEST se GLOPL eHY¥ eNORINGe 7CK0713/7NORINGS 
3 = COPYS>ceOL ODPL #DUMe 70 
&@ — RETURN EDUM. 
5S - UPDATE oF o& sC=COMPILE. 
6 - REWIND e COMPILE. 
T- FINe T=COMPILE ol 20e0PT=2sB=INFACE, 
& - RETURN COMPILE es 
A = UPDATE sF es eC=COMPILEs 
6° REWIND e COMPILE. 
9 - FING T=COMPILE el 20s0PT=2sB=AUTOCF, 
& ~ RETURNS COMPILE’ 
JO - LOAD AUTOCF . 
}} - INFace. 
& <- RETURNeAUTOCFe INFACES 
12 - UPDATE oF eX eC=COMPILEe 
13 - UNLOADSOLDPL« 
6 - REwINTeCOMPILE. 
1Q - FINe T=COMPILE sL2000PT=29B=NEWPE « 
& - RETURNS COMPILE ® 
15 - NEWE, 
* ya - 77879 END OF RECORD CARD 
* 17 - 7/8/9 END OF RECORD CARO 
* ya - 7/8/79 END OF RECORO CARD 
19 - 0 0 0 1 
19 - 0.0 146 1 0 0.0 
19 - 0000, 1540.9 0075. 1541.8 0125. 1539.6 0200. 1828.0 : 
19 - 0400, 1497.5 0600. 1486.9 0800. 146846,5 1000. 1683.9 
19 - 1200, 1484,5 1500. 1486.5 2000. 14691,5 3000. 1806.5 
19 - 5000, 1541,5 9999. 1635. ° ° . ° : 
19 ~ te) : 
19 ~ 27.0 14 0 0 0.0 \ 
19 ~ 0000, 1540.9 0075. 1541.28 0125. 1539.6 0200. 1526.0 j 
19 ~ 0400, 1497,5 0600. 1486.9 0800. 1484,5 1000. 1683.9 | 
19 - 3200, 1484,5 1500. 1486.5 2000. 1491.5 3000. 1506.5 | 
19 ~- 5000, 1541.5 9999-6 1635.6 e e ° ° | 
19 + C | 
39 - 204.0 15 15 0 0.0 
19 - 0000, 1542.1 0050. 1543.0 0100. 1637.7 0200. 1516.7 
¥9 = 0300, 1497.7 0400. 1491.7 0500. 1487.8 0700. 1485.5 
19 ~ 0900, 1484.8 1100. 14684,7 1500. 1487.1 2000. 1691.8 
319 - 3000, 1506.5 5000. 1541.5 9999. 1635.0 ° e 
9 - 0 
39 - 504.0 14 2 0 0.0 
19 - 0000, 154326 0050. 1543.0 01252 1517.4 0200. 1500.0 
19 = 0300, 1491.29 0400. 1488.6 0700. 1485.7 1006. 148461 
19 - 3200, 1484,5 1506. 1486.6 2000. 1491.5 3000. 180761 
19 = 5000. 1541.28 9999.6 1635-0 e e ° e 
19 - 0 
19 = 654.0 16 0 0.0 
19 - 0000, 1544.61 0050. 1544.2 0100. 154264 0150. 1532-9 
19 - 0200. 1517.0 0300. 1501.8 0400. 1492.2 0500. 1468.3 } 
19 - 0800, 1486.0 1000. 1484.7 1200. 1485.5 1500. 1467.3 | 
19 - 2000. 1492.3 30006 1507.1 5000. 1541.8 9999. 1635.0 
19 - END OF PROFS 
19 - 5 
19 ~ 0.0 10800. 4e 10200. 48, 10400. S46. 9800. 
19 - 500. 8000. 
19 - 1 
19 = 0.0 2 
* 90 - 7/8/9 END OF RECORD CARD 


; FIGURE 5: NEWPE EXECUTION DECK 
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Comment 


* 
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! 

{ 

Comment 
Number: 

| 


1 
2 


Card 


Number: Image: 
* 21 - 7/8/79 END OF RECORO Card 


22 - NEW PE NORDA BENCHMARK 
22 - 3 1 1 120 1 3 
22 - 0.0 500. 140. 
22 - 12903,.5 706 0.0 13000. 70. 10. 
22 - 20. 60. 300. 
22 - 0.0 ll. 194046 19. 209.25 lle 
**23 - 6/7/8/9 END OF JOB CARD 


image represents a card with a 7/8/9 multi-punch in Col. }. 


** This image represents a card with a 6/7/8/9 multi-punch in Col. |. 


FIGURE 5: NEWPE EXECUTION DECK (continued) 


The following comments refer to card images in the NEWPE execution 
deck listed in Figure 5. 


Comment: 
Declare the program tape to be used. 


Mount unlabeled program tape with local file name 
OLDPL. Density = 800 BPI (HY). No write ring. 


Position program tape befcre the 8th PL, i.e., the 8th 
binary record. . 


This is done to minimize mass storage usage. 
Create compile file from 8th PL on tape. 


This card is needed because UPDATE R option inhibits 
automatic rewind. 


Create the binary file INFACE. 

Create compile file from 9th PL on tape. 

Create the binary file AUTOCF. 

Include AUTOCF in the executable module INFACE. 


Comment 
Number: Comment: 


tl Load and execute INFACE. All system routines needed 
to complete the executable module are in system librar- 
ies that are automatically included by the loader. 


12 Create compile file from 10th PL on tape. 

13 Program tape no longer needed. 

14 Create the binary file NEWPE. 

15 Load and execute NEWPE. All system routines needed 


to complete the executable module are in system librar- 
ies that are automatically included by the loader. 


16 Updates to INFACE, if any, follow this card. Updates 
May be necessary to modify site dependent coding. 

17 Updates to AUTOCF, if any, follow this card. Updates 
may be necessary to modify site dependent coding. 

18 Data for INFACE follow this card. 

19 INFACE data cards, : 

20 Updates to NEWPE, if any, follow this card. Updates 
may be necessary to modify site dependent coding. 

21 Data for NEWPE follow this card. 

22 NEWPE data cards. 

23 End of deck, 


1V.6 Output 


The expected output from running the NEWPE execution deck is listed in 
Figure 6. 
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IV.7 Site Dependent Software 


NEWPE contains FORTRAN code which may be site dependent. This code 
is in the form of a call to system subroutine DATE which is not included in the 
PL provided in this package. This call involves the FORTRAN interface with the 
Operating System at DTNSRDC and is made to retrieve the current month, day, 


and year. 


It is possible that this subroutine may have a different name and/or 


argument list at the bench mark site. Table VI lists the exact location in NEWPE 
at which DATE is called. 


If the call to DATE is inappropriate at the bench mark site, the following course 
of act:on is recommended to modify the execution deck: 


1. 


Determine the appropriate subroutine call and argument list to re- 
trieve the current date. 


Prepare the necessary update cards to delete the existing call state- 
ment and replace it with the proper call. Certify that names given to 
variables in the update are consistent with existing names. To assist 
the user in this, Section IV.7.1 reproduces the call statement exactly 
as it appears in the FORTRAN compilation listing, and describes the 
call list. Additionally, Appendix F contains the complete compilation 
listing of the subroutine that calls DATE, and Appendix C contains 
user level documentation for DATE. 


Insert update cards in the NEWPE execution deck. For every PL on 
the program tape accessed by UPDATE there is a "7/8/9" card in the 
execution deck to satisfy the UPDATE command. Each of these 
"7/8/9" cards is annotated with the name of a PL. Insert the update 
cards immediately following the "7/8/9" card with the annotation 
"NEWPE updates follow this card." 


TABLE VI: LOCATION OF POSSIBLE SITE DEPENDENT 
SOFTWARE IN NEWPE 


Possible Site {| PL or 
Depender.t Prograin Program Line 


Subroutine Name Element No. Line ID 


SUBROUTINE PETL AESD.42 
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IV.7.1 DATE references 
FORTRAN Statement: Line ID: 
CALL DATE (WHEN) AESD 42 


Argument List: 


WHEN -— Integer in which the date is returned in the format 
10H#mm/dd/yyb (b represents a blank character). 


Vv. SYNACC 


V.1 General Information 


SYNACC is a batch mode program consisting of a single executable module 
referenced as SYNACC in the execution deck. SYNACC contains calls to 
CalComp subroutines PLOTS, PLOT, AXIS, NUMBER, and SYMBOL; however, in 
the bench mark run the "plot flag" is off and these calls are not executed. (They 
may be listed as unsatisfied external references when the program is loaded.) 
SYNACC is coded entirely in FORTRAN IV. 


V.2 Location of Program 


Program SYNACC is provided as a FORTRAN punched card deck within 
the execution deck. The program tape is not needed for SYNACC. 


V.3. Job Stream 


The job stream included in the SYNACC execution deck and listed in 
Section V.5 with comments performs the following basic functions: mounts data 
tape CK0456, copies seven data files from tape to mass storage and catalogs 
each file, compiles SYNACC from cards, then loads and executes it, and finally 
purges the seven data files. Job stream commands shown are those used on the 
DTNSRDC CDC 6600/6700 system. Note that the library file NSRDC is 
attached and included in the load. This file contains subroutines UNLOAD and 
ZPFUNC (see Section V.7) which are referenced within SYNACC. This file 
reference will certainly need to be changed at the bench mark site. 


V.4 Input 


SYNACC requires input from cataloged data files. The specific files and 
number of files varies from run to run depending on the card input which is also 
required. For each execution, SYNACC determines which data files are needed, 
then attaches and reads them one at a time from within the FORTRAN code. 
The necessary data files must be cataloged with the expected names. The 
SYNACC data tape, CK0456, and the backup tape, CK0152, contain seven data 
files which satisfy the program for the bench mark execution. All necessary 
data cards are contained in the SYNACC execution deck and are listed in Section 
V5. 


V.5 Execution Deck 


A listing of the SYNACC execution deck is presented in Figure 7 followed 
by comments. The entire SYNACC program which is included in the execution 
deck has been omitted from the listing. Numbers opposite card images in the 
figure coincide with the appropriate comment number. Job stream commands 
and data are identical to those which produced the output in Section V.6 on the 
CDC 6600/6700 system at DITINSRDC. 


Comment Card 
Number: Image 
SERS Se ee De ee eee ee ee 
1 - VSNeSYNDAT#CK0656, 
2 = REQUEST eSYNDAT sHY eNORINGs 7CK04S6/NORING/ 
3 - REQUESTsGRIDsePF. 
G - COPYCF eSYNDATsGRID. 
S - CATALOG eGRIDeF INALGRIDII11 eID#PVRV. 
6 - RETURNeGRID. 
3 - REQUESTsGRIDs2PF. 
7 ~- COPYCF sSYNDAT GRID. 
S = CATALOG eGRICeF INALGR1D} 1120 IDZPVRV. 
6 - RETURNeGRID. 
3 - REQUEST»GRIDs*PF. 
8 - COPYCF eSYNDATsGRIDe 
5 = CATALIGeGRIDeF INALGRID} 12] sIDEPVRV. ! 
6 = RETURN®GRID. 
3 - REQUEST sGKIDs#PF. i 
9 ~ COPYCF sSYNDATsGRID- { 
S = CATALOGsGRIDeFINALGRID11229ID=2PVRVe 
6 ~ RETURNeGRID. 
3 =~ REQUEST +GRIDo#PF. 
10 - COPYCF eSYNDATsGRIDe 
S = CATALOGeGFIDeFINALGRIDII31 sIDAPVRVe 
6 - RETURNeGRID. 
3 = REQUESTeGRIDs#PF. 
11 = COPYCF eSYNDAToGRIDe. 
S - CATALOGsGRIDeFINALGRIDI13201D=PVRVe 
6 = RETIRNeGRID. 
3 = REQUESTeGRIDe®PF. 
$2 = COPYCF eSYNDAToGRIDe 
5 = CATALOG+GRIDeFINALGRIDI1419102PVRVe 
6 = RETURN®GRIC. 
33 - UNLOAD» SYNDAT. 
14 = FINeL <5 »04Tx2eB2SYNACC, 
15 - ATTACHsNSRIC. 
16 ~ LIBRARY »NSROC, 
17 = LDSET»sPRESETAZNGiNF « 
18 = SYNACCe 
19 =. EX1T Ue 
20 = UNLOAN se TAPEle 
21 - ATTACH TEMP oF INALGRIDI}12 8ID=PVRV. 
22° PURGE e TEMP. 
22 =~ RETURN®TEMP. 
21 = ATTACHs TEMP oF INALGRIDIILZ9IDZPVRV. 
22 = PURGE TEMP. 
22 ~ RETURNeTEMP. 
21 © ATTACHs TEMP oF INALGRIDI121 9 1D=PVRV. 
22 - PURGE + TEMP. 
22 - RETURNsTEMPe 
21 = ATTACHs TEMP oF INALGRIDI 1229 IDsPVRVe 
22 = PURGE s TEMP so 
22 - RETURNo TEMP. 
21 = ATTACHs TEMP oF INALGRID1131 sIDZPVRVe 
22 = PURGE TEMP. 
22 - RETURNe TEMP. 
2) = aTTACHs TEMP oF INALGRIOLI32¢I0=PVRV. 
22 = PURGE« TEMP. 
22 « RETURN®TEMP. 
21 - ATTACHs TEMP oF INALGRID] 16) eIDHPVRVe 
22 = PURGE TEMP. 
22 - RETURN® TEMP. 
*23 = 7/8/9 END OF RECORD CARD 


FIGURE 7: SYNACC EXECUTION DECK 


pee Card 
Number: Image 
24 - PROGRAM ACCESS (INPUT sOUTPUT » TAPES@ INPUT» TAPEG@OUTPUT » TAPE 1» ACCESS 2 
Ss -~ 
25 - SYNACC FORTRAN PUNCHED CARD DECK 
25 - 
be : ENN SYNPL279 
* 27 ~ 778/9 END OF RECORD CARO 
28 ~ 2 BEARINGS T 
28 ~ NORDA BENCH MARK TRACK 1 30 N 50 w 60. 1500. 
28 - NORDA BENCH MARK TRACK 2 32 N 23 w 275.6 2000. 
28 - 99999999 
28 - S50. 250. METERS 24. NOPLOT 
** 99 = 6/7/8/9 END OF JOB CARD 


* This image represents a card with a 7/8/9 multi-punch in Col. 1. 


** This image represents a card with a 6/7/8/9 multi-punch in Col. 1. 


FIGURE 7: SYNACC EXECUTION DECK (continued) 


The following comments refer to card images in the SYNACC execution 
deck listed in Figure 7. 


Comment 
Number: Comment: 
1 Specify data and program tapes to be used. 
2 Mount unlabeled data tape with focal file name 
SYNDAT. Density = 800 BPI (HY). No write ring. 
3 Request permanent file space for purpose of cataloging. 
4 Copy Ist coded file from tape to permanent file space. 
5 Catalog the file with name and ID shown. 
6 Release the cataloged file. SYNACC attaches files 
internally when they are needed. 
7 Copy 2nd coded file from tape to permanent file space. 
8 Copy 3rd coded file from tape to permanent file space. 
9 Copy 4th coded file from tape to permanent file space. 
10 Copy 5th coded file from tape to permanent file space. 


Comment 
Number: 


ll 
12 
13 
14 


15 


16 


17 


18 


19 
20 


21 
22 
23 
24 


25 


26 
27 
28 


29 


V.6 Output 


The expected output from running the SYNACC execution deck is listed in 
Figure 8. 


Comment: 

Copy 6th coded file from tape to permanent file space. 
Copy 7th cod.:< file from tape to permanent file space. 
Data tape no longer needed. 

Create the binary file SYNACC from cards. 


This is a DINSRDC binary library containing subroutines 
UNLOAD and ZPFUNC (see Section V.7). 


Include NSRDC when loading. 


Preset values in core to negative infinity with the 
address of the word set in the low order bits. 


Load and execute SYNACC. All system routines needed 
to complete the executable module (except UNLOAD 
and ZPFUNC) are in system libraries that are automat- 
ically included by the loader. 

Control reaches this card unconditionally. 


Release the cataloged data file last attached in the 
SYNACC execution. 


Attach the file name shown for the purpose of purging. 
Purge the file just attached. 

Program SYNACC follows this card. 

First card of program SYNACC. 


SYNACC FORTRAN program cards. (Actual card 
images are not listed). 


Last card of program SYNACC. 
Data for SYNACC follow this card. 
SYNACC data cards. 

End of deck. 
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V.7 Site Dependent Software 


SYNACC contains FORTRAN code which may be site dependent. This 
code is in the form of subroutine calls to system routines that are not included in 
the PL provided in this package. These calls involve the FORTRAN interface 
with the operating system at DTINSRDC and are used in attaching and unloading 
cataloged mass storage files. It is possible that these subroutines have different 
names and/or argument lists at the berch mark site. Table VII lists candidate 
site dependent subroutines and the exact location in SYNACC at which each 
subroutine call is generated. 


The user should reference Table VII and determine if either subroutine call 
is inappropriate at the bench mark site. For each site dependent subroutine 
found, the following course of action is recommended to modify the execution 
deck: 


1. Determine the appropriate subroutine cal! and argument list to per- 
form the desired function at the bench mark site. (Table II], page I-7, 
lists the purpose of each subroutine call). 


2. Prepare the necessary FORTRAN cards to replace the existing call 
statement with the proper call. Certify that names given to variables 
in the new cards are consistent with existing names. To assist the user 
in this, Section V.7.1 and V.7.2 reproduce each call statement exactly 
as it appears in the FORTRAN compilation listing. Each argument in 
the caj] list is discussed. Additionally, Appendix G contains the 
complete compilation listing of the subroutine that generates the 
calls, and Appendix C contains user leve! documentation for each 
possible site dependent subroutine. 


3. Replace the existing FORTRAN call statements in the execution deck 
with the appropriate new cards. The subroutine (GRDBLK) generating 
the calis has been punched on yellow-topped cards. 


TABLE Vii: LOCATION OF POSSIBLE SITE DEPENDENT 
SOFTWARE IN SYNACC 


Possible Site PL or 


Dependent Program Program 


Line 
Subroutine Name Element No. Card ID* 


UNLOAD SYNACC | SUBROUTINE GRDBLK GRDBLK 30 


ZPFUNC SYNACC | SUBROUTINE GRDBLK | 80 | GRDBLK8} 


* SYNACC program cards have ID's in columns 73-80 because they were 
punched from an existing UPDATE Program Library. 
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V.7.1 UNLOAD references 
FORTRAN Statement: Card ID: 
CALL UNLOAD (ITAPE}!) GRDBLK30 


Argument List: 


ITAPE! — _ Integer variable defining unit number used by SYNACC for 
the data files. Set to 1 in a DATA statement. Input to 
UNLOAD. 


V.7.2 ZPFUNC references 
FORTRAN Statement: Card ID: 
CALL ZPFUNC (IRC, IPRMS, NW) GRDBLK81 
Argument List: 


IRC — Integer variable defining type of function desired. Set to | 
on input to ZPFUNC to request attach function. Used for 
error flag on output from ZPFUNC. 


IPRMS - <A 22-word typeless array containing the following parameters 
needed to attach a file: 


IPRMS (1) -— Local file name for file being attached. 
Contains the 5 Hollerith characters TAPE] 
left justified with 0 fill. 

IPRMS (2-5) Permanent file name. The first nine char- 

acters are always "FINALGRID" followed 

by from two to four alphanumeric digits. 

SUBROUTINE GRDBLK determines the 

necessary digits and constructs the com- 

plete permanent file name, then assigns it 

into IPRMS (2) and IPRMS (3). IPRMS (4) 

and IPRMS (5), as well as unused bytes in 

IPRMS (3) are 0 filled. 


IPRMS (6) -— File ID. Contains the 4 Hollerith charac-~ 
ters PVRV left justified with 0 fill. 


IPRMS (12) — File MR option for attach. Set to integer 
value 1. 


IPRMS (14) — File cycle number. Set to integer value -1 
to request latest cycle and to return cycle 
number in this word. 


All other words of IPRMS are set to binary zero. 


NW — Integer variable defining the last word filled in IPRMS. Set 
to 14, 


Subroutine ZPFUNC is potentially the most troublesome of all the possible 
site dependent subroutines because data files must be cataloged in the job 
stream exactly as SUBROUTINE GRDBLK expects to find them. If there exist 
some site dependent constraints on cataloged file names or ID's, or, if system 
"set names" or other device specifications must be indicated, the user must 
update GRDBLK accordingly. 
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VI. INTERACT 
VI. General Information 


INTERACT is an interactive program consisting of a single executable 
module that is cataloged with the name BMINTERACT, ID=PUJA, in the 
INTERACT creation deck for later execution in interactive mode. The program 
generates calls to system utility subroutines REQUEST, UNLOAD and ZPFUNC 
which reside in a user library at DINSRDC; however, in the bench mark run, 
these calls are not executed and therefore need not be satisfied. (They may be 
listed as unsatisfied external references when the program is loaded.) 
INTERACT is coded entirely in FORTRAN IV. 


V1.2 Location of Program 


| The PL for INTERACT is the 12th PL (12th binary record) on the program 
Hi tape CK0713, and the backup program tape, CK0720. | 


VI.3. Job Stream 


The job stream included in the INTERACT creation deck and listed in 
Section VI.4 with comments performs the following basic functions: mounts 
i program tape CK0713, updates from the INTERACT PL on tape, compiles, loads, 
and catalogs the absolute element. Job stream commands presented are those 
used on the DTINSRDC CDC 6600/6700 system. They may require modification 

at the bench mark site. 


VI.4 Creation Deck 


The deck supplied for INTERACT is not an execution deck but a creation 
deck which compiles the program and catalogs the absolute (executable) object 
code for later interactive execution. A listing of the INTERACT creation deck 
is presented in Figure 9 followed by comments. Numbers opposite card images in 
the figure coincide with the appropriate comment number. 


Comment sa 

Number: mage: 

— TT I—NO—™— 
- N OPL=CK0713. 

- REQUEST eOLDPL oY sNORINGs JCKOTIIZNORING/ 
= COPYRReOLDPL sDUMelle 
= RETURN®DUM. 

= UPDATE oF eR eC=COMPILEs 
- REWIND COMPILES 

- FINe T=COMPILE sL2090PT=29B=INRACT. 
= RETURN>COMPILEs 

= REQUEST sABSo®PF. 

= LOADsINRACT. 

- NOS0+A4BS, 

- CATALOG sABS eBMINTERACTs I0#PUJA. 

- 7/78/9 END OF RECORD CARD 

= 6/7/849 ENO OF JOB CARD 


OBENGU EWN 


10 


* This image represents a card with a 7/8/9 multi-punch in Col. 1. 
** This image represents a card with a 6/7/8/9 multi-punch in Col. 1. 


FIGURE 9: INTERACT CREATION DECK 


i 
The following comments refer to card images in the INTERACT creation 
deck listed in Figure 9. 
Comment 
Number: Comment: 


1 


2 


12 


13 


Specify the program tape to be used. 


Mount unlabeled program tape with local file name 
OLDPL. Density = 800 BPI (HY). No write ring. 


Position program tape before the 12th PL, i.e., the 12th 
binary record. 


This is done to minimize mass storage usage. 
Create compile file from 12th PL on tape. 


This card is needed because UPDATE R option inhibits 
automatic rewind. 


Create the binary file INRACT. 


Request permanent file space for purpose of cataloging 
the absolute element ABS. 


Include the binary file INRACT in the load. 
Complete loading but inhibit execution. All system 
routines needed to complete the executable module are 


in system libraries that are automatically included by 
the loader. 


Catalog absolute element with name and ID shown for 
later execution in interactive mode. 


Updates to Interact, if any, follow this card. Updates 
may be necessary to modify site dependent coding. 


End of deck. 


VI-2 


~ cee cme memati oe 


ee en ee 


4 
| 
i 
4 
t 
‘ 
4 
1 


V1.5 Interactive Dialog 


Figure 10 presents an interactive dialog between program INTERACT and 
the user. The dialog exercises many paths through INTERACT and should be 
duplicatable at the bench mark site. Events are numbered ! through 255 for 
reference purposes where each event is either a prompt from INTERACT or an 
input from the user. Most user responses are very short and the entire dialog can 
be executed in 10 to 15 minutes with reasonably rapid response time. Note that 
Events 215 and 251 ask the user if he wants to catalog a file. The user must 
answer "N" (no) because the software needed for cataloging does not exist in the 
absolute object code. Before attempting to execute the dialog, the user must 
run the INTERACT creation deck to catalog the absolute program (see Section 
V1.4). Then, to initiate the program from an interactive terminal, the user must 
log in and enter the following commands: 


ATTACH, INTER, BMINTERACT, ID=PUIJA 
INTER 


Obviously, the permanent file name (in this case BMINTERACT) and the ID (in 
this case PUJA), as well as any additiona] information, must be those used to 
catalog the file at the bench mark site. 


Following the above commands, the program will commence execution and 
respond with the prompt shown as Event | in Figure 10. 


poet S  aaie 2S ame 


225 here em ain CD ean Sek RE Ln ing cance 


38 NT PEE he RRR ar ke a a gin he Bee 


EVENT USER 
NO. | PROGRAM PROMPT RESPONSE 
3) CREATE AN INPUT DATA SET FOR CFIELD PLOT 

4) MODIFY AN INPUT DATA SET FOR CFIELD PLOT 


WELCOME TO INTERACT. WITH THIS SYSTEM YOU CAN 
1) CREATE AN INPUT DATA SET FOR INTERFACE 
ENTER THE INDEX OF THE FUNCTION TO PERFORM 
i a eae 


2) MODIFY AN INPUT DATA SET FOR INTERFACE 
WILL THERE BE AUTO-OCEAN INPUT DATA (Y OR N) 


ANSWER THE FOLLOWING QUESTIONS Y OR N 
DELIMITED BY COMMAS 
1) DO YOU WANT SPHERICAL EARTH CORRECTION 
2) DO YOU WANT THE CALCULATED CONNECTIONS 
PRINTED 
3) DO YOU WANT THE CALCULATED QUANTITIES 
FOR EACH TRIANGULAR SECTOR PRINTED 


SPECIFY THE SURFACE LAYER DUCT IN ONE 
OF 3 WAYS — 
1) ENTER 0 FOR NO SURFACE LAYER 
2) ENTER -1 FOR LAYER DEPTH TO BE 
DETERMINED BY MODEL 
3) ENTER INDEX OF SURFACE LAYER DEPTH 
ON FIRST PROFILE 


DATA ENTRY COMPLETE FOR EARTH CORRECTION, 
PRINT FLAGS, AND SURFACE LAYER DUCT 


DO YOU WISH TO REVIEW (Y OR N) 


1) SPHERICAL EARTH CORRECTION APPLIED 
2) CALCULATED CONNECTIONS PRINTED NO 
3) CALCULATED QUANTITIES PRINTED NO 

IF YOU WANT TO CHANGE ANY OF THE ABOVE 

PARAMETERS ENTER THE INDEX NUMBER 

WHEN DONE ENTER AN INDEX GREATER THAN THREE 


FIGURE 10: INTERACT DIALOG 
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SURFACE LAYER SPECIFICATION IS 1 
DO YOU WANT TO CHANGE IT (Y OR N) 


ENTER THE FOLLOWING VALUES DELIMITED BY COMMAS 
1) RANGE (NM) OF THE FOLLOWING PROFILE 

2) NUMBER OF POINTS IN THE FOLLOWING PROFILE 
3) NUMBER OF INTERPOLATED PROFILES DESIRED 
4) WAVE HEIGHT (FT) 


IS 3 THE NUMBER OF PROFILE POINTS (Y OR N) 


Q, 1500 
a Cee 
30, 1505 
EAC ee 


| 28 | 2000, 1490 
hea DO YOU WISH TO REVIEW (Y OR N) ease, cee 
CF RRRIOREREESE CREE 


FIGURE 10: INTERACT DIALOG (continued) 


ENTER 3 (DEPTH, SPEED) PAIRS A PAIR AT A TIME 


EVENT USER 
NO, [PROGRAM PROMPT RESPONSE 


1) RANGE (NM) OF FOLLOWING PROFILE IS 0.00 
2) NO. OF POINTS IN FOLLOWING PROFILE IS 3 
3) NO. OF INTERPOLATED PROFILES IS 2 
4) WAVE HEIGHT (FT) IS 5.00 

ENTER THE INDEX NUMBER AND THE NEW VALUE 


WHEN DONE, OR IF NO CHANGE ENTER AN INDEX 
VALUE GREATER THAN 5 


1) RANGE (NM) OF FOLLOWING PROFILE IS 0.00 
2) NO. OF POINTS IN FOLLOWING PROFILE IS 4 
3) NO. OF INTERPOLATED PROFILES IS 2 
4) WAVE HEIGHT (FT) IS 5.00 

ENTER THE INDEX NUMBER AND THE NEW VALUE 

WHEN DONE, OR IF NO CHANGE ENTER AN INDEX VALUE 

GREATER THAN 5 


DEPTH SPEED 
i 0.00 1500.00 


2 30.00 1505.00 
3 2000.00 1490.00 
4 0.00 0.00 


ENTER THE INDEX AND A NEW (DEPTH, SPEED) PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN [00 


ENTER INDEX 


FIGURE 10: INTERACT DIALOG (continued) 
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USER 
RESPONSE 


EVENT 
PROGRAM PROMPT 


NO. 
44 
ENTER INDEX 
: aa 
46 
46.1 
47 


45.1 


NEXT — 
ENTER INDEX 


DO YOU WISH TO REVIEW THE CHANGE (Y OR N) 


ARE THERE MORE PROFILES TO ENTER (Y OR N) 


ENTER THE NUMBER OF SPECIFIED CONNECTIONS 
BETWEEN THIS PROFILE AND THE NEXT 


ENTER 3 (UPRANGE, DOWNRANGE) PAIRS A PAIR 
AT A TIME 1- 


57 | 2- 


48 
49 
50 
5\ 
52 
53 
54 
55 
el eee 


DO YOU WISH TO REVIEW (Y OR N) 


FIGURE 10: INTERACT DIALOG (continued) 
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TS = > encanta ORE merce... 


USER 
RESPONSE 


EVENT 
NO. {PROGRAM PROMPT 


63 |ENTER THE FOLLOWING VALUES DELIMITED BY COMMAS 
1) RANGE (NM) OF THE FOLLOWING PROFILE 


2) NUMBER OF POINTS IN THE FOLLOWING PROFILE 
3) NUMBER OF INTERPOLATED PROFILES DESIRED 
&) WAVE HEIGHT (FT) 


100, 5, 2, 5 


| 65 | IS 5 THE NUMBER OF PROFILE POINTS (Y OR N) 
2 eer ee |: 


0, 1502 


DO YOU WITH TO REVIEW (Y OR N) 


N TN 
ooln 


™“N 
oO 


1) RANGE (NM) OF FOLLOWING PROFILE IS 100.00 
2) NO. OF POINTS IN FOLLOWING PROFILE IS 5 

3) NO. OF INTERPOLATED PROFILES IS 2 

4) WAVE HEIGHT (FT) IS 5.00 

ENTER THE INDEX NUMBER AND THE NEW VALUE 
WHEN DONE, OR IF NO CHANGE ENTER AN INDEX 
VALUE GREATER THAN 5 


FIGURE 10: INTERACT DIALOG (continued) 
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ere eS 


USER 
PROGRAM PROMPT RESPONSE 


| ai [Do YOU WISH TO REVIEW THE CHANGE (Y OR N) ee te 


DEPTH SPEED 
1 0.00 {502.00 
2 20.00 1502.00 
3 500.00 1480.00 
4 3000.00 1530.40 
5 3500.00 1535.00 


ENTER THE INDEX AND A NEW (DEPTH, SPEED) PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN 100 
ENTER INDEX 


ENTER THE NUMBER OF SPECIFIED CONNECTIONS 
BETWEEN THIS PROFILE AND THE NEXT 


ENTER THE FOLLOWING VALUES DELIMITED BY COMMAS 
1) RANGE (NM) OF THE FOLLOWING PROFILE 

2) NUMBER OF POINTS IN THE FOLLOWING PROFILE 

3) NUMBER OF INTERPOLATED PROFILES DESIRED 

4) WAVE HEIGHT (FT) 


FIGURE 10: INTERACT DIALOG (continued) 
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EI. 6. AE ey ae me 


on USER 


RESPONSE 


PROGRAM PROMPT 
0, 1503 


DO YOU WISH TO REVIEW (Y OR N) 


ARE THERE MORE PROFILES TO ENTER (Y OR N) 


10 


ENTER THE NUMBER OF BATHYMETRY POINTS 


ENTER M OR F FOR METERS OR ase 


ENTER 5 BATHYMETRY a DEPTH) PAIRS A PAIR 
AT A TIME I1- 


114 10, 3200 


_ 
— 
w 
ll 


100, 6000 


ee ee 


FIGURE 10: INTERACT DIALOG (continued) 
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USER 


PROGRAM PROMPT RESPONSE 


EVEN 
NO. 
121 


fala DO YOU WISH TO REVIEW (Y OR N) 


ENTER THE NUMBER OF RANGES AT WHICH BOTTOM 
CLASS VALUES WILL BE ASSIGNED 


122 
123 
124 
125 
126 


500, 6500 


; T [ 


ENTER 4 (RANGE, I-5 CLASS, 1-9 CLASS) TRIPLES 
A TRIPLE AT A TIME 1I- 


127 


t 
Oo 
— 
w 


28 


100, 2, 7 
129 


130 200,4,9 


DO YOU WISH TO REVIEW (Y OR N) 


| 


DO YOU WANT TO CHANGE THE NUMBER (Y OR N) 


ea THERE ARE 4 BOTTOM CLASS POINTS SPECIFIED 


{ 

l 

1 

C2 a eee 
NEW NUMBER IS ~ 


131 
32 
33 
34 

135 
36 

138 


FIGURE 10: INTERACT DIALOG (continued) 
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EVENT USER 
NO. | PROGRAM PROMPT RESPONSE 
139 | INDEX RANGE (NM) 1-5 CLASS 1-9 CLASS 
i 0.00 3 
100.00 7 
200.00 9 
300.00 7 
0.00 0 
0.00 0 
ENTER AN INDEX AND A NEW BOTTOM CLASS TRIPLE 
WHEN DONE ENTER AN INDEX GREATER THAN [50 
ENTER INDEX 
141 [ENTER TRIPLE ee dl 


+ 

NO 
w 
N 
w 
nN) 
iw 


’ , 


— 
= 
Ww 


NEXT — 
ENTER INDEX 


ENTER TRIPLE 


Baa ee - 
ENTER INDEX 


Pf 0, 4 


— 
- 
Nn 


149° |DO YOU WISH TO REVIEW THE CHANGE (Y OR N) 
450 
151 |INDEX RANGE (NM) 1-5 CLASS 1-9 CLASS 
] 0.00 1 3 
2 100.00 2 7 
3 200.00 4 9 
4 300.00 3 7 
5 323.00 2 5 
6 400.00 4 4 


ENTER AN INDEX AND A NEW BOTTOM CLASS TRIPLE 
WHEN DONE ENTER AN INDEX GREATER THAN 150 


ENTER INDEX 


FIGURE 10: INTERACT DIALOG (continued) 
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EVENT 
NO. {PROGRAM PROMPT 


ose eee YOU WISH TO REVIEW THE CHANGE (Y OR N) 


DATA SET COMPLETE 
DO YOU WISH TO REVIEW (Y OR N) 


ENTER THE NUMBER CORRESPONDING TO THE DATA 
YOU WISH TO REVIEW 

1) ALL 

2) EARTH CORRECTION, PRINT FLAGS, AND DUCT 

3) PROFILE DATA AND (DEPTH, SPEED) PAIRS 

4) CONNECTION DATA 

5) BATHYMETRY DATA 

6) BOTTOM CLASS DATA 


159 SPHERICAL EARTH CORRECTION APPLIED 
2) CALCULATED CONNECTIONS PRINTED NO 
3) CALCULATED QUANTITIES PRINTED NO 


IF YOU WANT TO CHANGE ANY OF THE ABOVE 
PARAMETERS ENTER THE INDEX NUMBER 
WHEN DONE ENTER AN INDEX GREATER THAN THREE 


SURFACE LAYER SPECIFICATION IS | 
DO YOU WANT TO CHANGE IT (Y OR N) 


1) RANGE (NM) OF FOLLOWING PROFILE IS 0.00 
2) NO. OF POINTS IN FOLLOWING PROFILE IS 4 
3) NO. OF INTERPOLATED PROFILES IS 2 
4) WAVE HEIGHT (FT) IS 5.00 

ENTER THE INDEX NUMBER AND THE NEW VALUE 

WHEN DONE, OR IF NO CHANGE ENTER AN INDEX VALUE 

GREATER THAN 5 


FIGURE 10: INTERACT DIALOG (continued) 
ee Vela 


USER 
RESPONSE 


DEPTH SPEED 
0.09 1501.00 
30.09 1595.00 
2009.09 1499.00 
5999.09 1540.00 
ENTER THE INDEX AND A NEW (DEPTH, SPEED) PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN 100 


ENTER INDEX 


DO YOU WISH TO REVIEW THE CHANGE (Y OR N) 


THERE ARE 3 CONNECTIONS SPECIFIED BETWEEN THIS 
PROFILE AND THE NEXT. 
DO YOU WANT TO CHANGE THE NUMBER (Y OR N‘ 


CONNECTION POINTS 
INDEX LEFT RIGHT 
1 2 
2 3 
4 4 
ENTER AN INDEX AND NEW CONNECTION PAI 
WHEN DONE ENTER AN INDEX GREATER THAN 100 


ENTER INDEX 


FIGURE 10: INTERACT DIALOG (continued) 
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EVENT 
NO. {PROGRAM PROMPT 


181 1) RANGE (NM) OF FOLLOWING PROFILE IS 100.00 
2) NO. OF POINTS IN FOLLOWING PROFILE IS 5 
3) NO. OF INTERPOLATED PROFILES IS 2 


USER 
RESPONSE 


4) WAVE HEIGHT (FT) IS 5.00 
ENTER THE INDEX NUMBER AND THE NEW VALUE 
WHEN DONE, OR IF NO CHANGE ENTER AN INDEX VALUE 
GREATER THAN 5 


lee ee 
DO YOU WISH TO REVIEW THE CHANGE (Y OR N) P| 


THERE ARE 5 (DEPTH, SPEED) PAIRS 


18 

18 
8 
87 
8 
8 

19 


INDEX DEPTH SPEED 
| 0.00 1502.00 
2 20.00 1502.00 
3 500.00 1480.00 
4 3000.00 1530.40 
5 3500.00 1535.00 


ENTER THE INDEX AND A NEW (DEPTH, SPEED) PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN 100 


ENTER INDEX 


} 
DO YOU WISH TO REVIEW THE CHANGE (Y OR N) 
THERE ARE 0 CONNECTIONS SPECIFIED BETWEEN THIS 


PROFILE AND THE NEXT. 
DO YOU WANT TO CHANGE THE NUMBER (Y OR N) 


1) RANGE (NM) OF FOLLOWING PROFILE IS 500.00 

2) NO. OF POINTS IN FOLLOWING PROFILE IS 3 

3) NO. OF INTERPOLATED PROFILES IS 2 

4) WAVE HEIGHT (FT) IS 5.00 
ENTER THE INDEX NUMBER AND THE NEW VALUE 
WHEN DONE, OR IF NO CHANGE ENTER AN INDEX VALUE 
GREATER THAN 5 


(eee Renna (IE! 


FIGURE 10: INTERACT DIALOG (continued) 
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PROGRAM PROMPT 
DO YOU WISH TO REVIEW THE CHANGE (Y OR N) 


THERE ARE 3 (DEPTH, SPEED) PAIRS 


INDEX DEPTH SPEED 
0.00 1503.00 
1090.99 1475.00 
5090.90 1550.00 
ENTER THE INDEX AND A NEW (DEPTH, SPEED) PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN 100 


ENTER INDEX 


END OF PROFILE DATA 


THERE ARE 5 BATHYMETRY POINTS SPECIFIED 
DO YOU WANT TO CHANGE THE NUMBER (Y OR N) 


RANGE (NM) DEPTH 
1.00 3000.00 
10.00 3200.00 
100.00 6000.00 
400.00 7000.00 
500.00 6500.00 
ENTER AN INDEX AND NEW BATHYMETRY PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN 300 


ENTER INDEX 


FIGURE 10: INTERACT DIALOG (continued) 
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USER 
RESPONSE 


INDEX RANGE ee 1-5 CLASS 1-9 CLAS 
1 0.00 3 
2 100.00 7 
3 200.00 9 
4 300.00 7 
5 323.00 B) 
6 400.00 
ENTER AN INDEX AND A NEW BOTTOM CLASS TRIPLE 


WHEN DONE ENTER AN INDEX GREATER THAN 150 
ENTER INDEX 
i ST eRNTORENe weSANEETTORN | 


DO YOU WISH TO REVIEW MORE DATA (Y OR N) eae 
DO YOU WANT TO CATALOG THE FILE (Y OR N) a 


N 
ARE YOU DONE FOR THIS SESSION (Y OR N) 


WELCOME TO INTERACT. WITH THIS SYSTEM YOU CAN 
1) CREATE AN INPUT DATA SET FOR INTERFACE 
2) MODIFY AN INPUT DATA SET FOR INTERFACE 
3) CREATE AN INPUT DATA SET FOR CFIELD PLOT 
4) MODIFY AN INPUT DATA SET FOR CFIELD PLOT 
ENTER THE INDEX OF THE FUNCTION TO as 


FIGURE 10: INTERACT DIALOG (continued) 
VI-17 
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NO. {PROGRAM PROMPT RESPONSE 


N 
N 
N 


2 


223, | WILL THERE BE AUTO-OCEAN INPUT DATA (Y OR N) Re as 


N 
> 


nN 
NO 
wa 


ENTER THE NUMBER CORRESPONDING TO THE DATA 
YOU WISH TO REVIEW 

1) ALL 

2) EARTH CORRECTION, PRINT FLAGS, AND DUCT 

3) PROFILE DATA AND (DEPTH, SPEED) PAIRS 

4) CONNECTION DATA 

5) BATHYMETRY DATA 

6) BOTTOM CLASS DATA 


are ee | 
SPECIFY THE RANGE OF THE PROFILE TO REVIEW 
A NEGATIVE RANGE SPECIFIES ALL 


1) RANGE (NM) OF FOLLOWING PROFILE IS 0.00 

2) NO. OF POINTS IN FOLLOWING PROFILE IS 4 

3) NO. OF INTERPOLATED PROFILES IS 2 

4) WAVE HEIGHT (FT) IS 5.00 
ENTER THE INDEX NUMBER AND THE NEW VALUE 
WHEN DONE, OR IF NO CHANGE ENTER AN INDEX VALUE 
GREATER THAN 5 


DO YOU WISH TO REVIEW THE CHANGE (Y OR N) 
ee eet eee ieee: 


THERE ARE 4 (DEPTH, SPEED) PAIRS 


2 


22 
2 


26 

7 
28 
229 


230 


231 
232 


233 


INDEX DEPTH SPEED 
0.00 1501.00 
30.00 1505.00 
2000.00 1490.00 
5000.00 1540.00 
ENTER THE INDEX AND A NEW (DEPTH, SPEED) PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN 100 


ENTER INDEX 


FIGURE 10: INTERACT DIALOG (continued) 
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PROGRAM PROMPT 


USER 
RESPONSE 


235 {ENTER PAIR 


NEXT — 
ESTES INDEX 


DO YOU WISH TO REVIEW THE CHANGE (Y OR N) 


INDEX DEPTH SPEED 


! 0.00 1501.00 
2 35.00 1510.00 
3 2000.00 1490.00 
4 5000.00 1540.00 


ENTER THE INDEX AND A NEW (DEPTH, SPEED) PAIR 
WHEN DONE ENTER AN INDEX GREATER THAN 100 


ENTER INDEX 


DO YOU WANT TO REVIEW THE SPECIFIED 
CONNECTIONS (Y OR N) 


DO YOU WISH TO REVIEW MORE DATA (Y OR N) 


DO YOU WANT TO CATALOG THE FILE (Y OR N) 


FIGURE 10: INTERACT DIALOG (continued) 


V1.6 Site Dependent Software 


INTERACT contains FORTRAN code which may be site dependent. This 
code is in the form of calls to system subroutine CONNEC which is not included 
in the PL provided in this package. CONNEC is the FORTRAN/Terminal 
interface subroutine called to connect a file unit designator to the interactive 
terminal. All connected files must be declared on the "PROGRAM" card (i.e., 
the first card in the FORTRAN program). It is possible that this subroutine may 
have a different name and/or argument list at the bench mark site. Table VIII 
lists the exact locations in INTERACT at which CONNEC is called. 


If the call to CONNEC is inappropriate at the bench mark site, the following 
course of action is recommended to modify the creation deck: 


1. Determine the appropriate subroutine call and argument list to con- 
nect a file unit designator to an interactive terminal. 


2. Prepare the necessary update cards to delete the existing call state- 
ments and replace them with the proper calls. Certify that any 
variable names in the updates are consistent with existing names. To 
assist the user in this, Section VI.6.1 reproduces each call statement 
exactly as it appears in the FORTRAN compilation listing, and 
describes the call list. Additionally, Appendix H contains the com- 
plete compilation listing of the main program which calls CONNEC, 
and Appendix C contains user level documentation for CONNEC, 


3. Insert update cards in the INTERACT creation deck immediately after 
the "7/8/9" card with the annotation "INRACT updates follow this 
card." 


TABLE VII: LOCATION OF POSSIBLE SITE DEPENDENT 
SOFTWARE IN INTERACT 


Possible Site PL or 
Dependent Program Program Line 
Subroutine Name Element No. Line ID 


CONNEC INRACT | PROGRAM INRACT p18 | INRACT.19 


INRACT.20 


v1.6.1 CONNEC references 
FORTRAN Statement: Line ID: 
CALL CONNEC(1) INRACT 19 
Argument List: 
1 — Integer file unit number input to CONNEC. AH input from the 


terminal is achieved by reading from unit 1. TAPElI is declared 
on the program card. 


FORTRAN Statement: Line ID: 
CALL CONNEC (2) INRACT 20 


Argument List: 


2  -- Integer file unit number input to CONNEC. All output to the 
terminal is achieved by writing to unit 2, TAPE2 is declared on 
the program card. 


APPENDIX A 


JOB CARD INFORMATION 


Appendix A presents information regarding program time and size to assist 
the user in preparing the JOB card for each execution deck. Values shown should 
be more than sufficient to load and execute each program. Sample JOB and 


CHARGE cards are not included in this document because they are obviously site 
dependent. 


*aw1] MdD JO spuodeas *Q] UR? SS2] aatnbaa 
Pinoys (GIA YOI}DaS) Boyerp aavoesaqur syd *yoap uotjeasa LOWUALNI 20} sisanbai pazsasang « 


Oni 


0000%1 


sodey 4OeI 1-2 
JO JOQUNN 
WwNWIxXeW 


(SPuodag yeWII9()) 
ysanbay auwitp 
O/] parsed3ng 


(Spuosas yeUsIDaC]) 
ysanbay aul 
NdD parsad3ns 


(JRIDO) ysanbay 
azis A1oWapW 
poysaa3ng 


uo1nsexg 
wessoid 


aan 


aa 


APPENDIX B 


INTEGER FUNCTION "FIELD" 


Integer function "FIELD" is a COMPASS coded function existing in the 
AUTO-OCEAN PL on the program tape. It has three arguments: NBITS, 
NSTART, and NWORD. Its purpose is to extract a bit string NBITS long from 
word NWORD starting at bit position NSTART (bits numbered 0 through 59, left 
to right) and place the string in FIELD, tight justified, binary-zero filled. The 
assembler listing of FIELD is presented on the following pages to assist the user 
in the event the FORTRAN compiler at the bench mark site cannot accept a 
COMPASS routine intermingled with FORTRAN routines. 
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APPENDIX C 


DOCUMENTATION OF POSSIBLE SITE DEPENDENT SOFTWARE 


Appendix C presents user level documentation for subroutines that may be 
site dependent and thus require special attention at the bench mark site. This 
documentation has been extracted from various CDC manuals and cataloged 


information files. 
Subroutine Name: 


CLOSEM 
CONNEC 
DATE 
FILEDA 
GET 
OPENM 
OPENMS 
PUT 
READMS 
UNLOAD 
WRITMS 
ZPFUNC 


Page: 


C-13, C-10 thru C-12 
C-3 thru C-5 
C-2 
C-13, C-10 thru C-12, C-15 thru C-18 
C-13, C-10 thru C-12 
C-13, C-10 thru C-12 
6 


C- 
C-13, C-10 thru C-12 
C-8 

9 


C-1 
C-7 
C-20 thru C-23 


CALL RANSE Tin) 


Inualizes seed of RANF on is a one-word bit pattern. Bit O wil] be ser to ] (forced odd), and bits £9 
through 48 will be set to 1717 octal 


CALL RANGE Tin) 


Obtains current seed of RANF between 0 and 1 n ts a symboln name to recewe the seed It 3s not neves- 
sarily normalized The value returned may be passed to RANSET at a later time to regenerate the same 
sequence of random numbers 
OPERATING SYSTEM INTERFACE ROUTINES 

DATE(a) or CALL DATE(a)” 
The current date is returned as the value of argument a or of the tunction in the form 10Hbmm dd vv ture: 
NOS BE 1) or 1OHbmm dd ys. ¢under NOS }, SCOPE 2). where b denotes a blank. mm as the number: ot the 
month, dd is the number of the duy within the month. and yy as the year The value returned iy Hobernt) dats 


and can be output using ar A format specication 

The default type of the functor DATA ts real. thus if J and K are integer variables as in j 
J = DATE:K) 

J will net be useful because the value returned wil! have been converted from real to intege: 
JDATE(a) or CALL JDATE(a)” * 

The current date 1s returned as the value of argument a or of the function in the form SRyyddd. where yy 


is the year and ddd 1s the number of the day within the year The value returned is Hollerith dats and can 
be output using an R format specification The type of the function JDATE is intege:. 


SECONDI(t) or CALL SECONDIt)* 


The central processor time 1s retumed from start-of-job in seconds as a real number. usualiy accurate tw two 
decimal places t 1s a real vanable 


Example 
DPTIM = SECOND ICP: 


«@ 


T These routines can be used as functions or subroutines. The value is retumed via the argument and the 
normal funct:on retum 


+ Not available under SCOPE 2. 
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CALL WRITEC(a,b,n) 
Transfers data from central memory to extended core storage or LCM. 
No type conversion 1s done 
Example 


LEVEL 3.8 
CALL READECI(AB.10) 


CALL WRITEC(A,B,10) 


TERMINAL INTERFACE SUBPROGRAMS* 
CALL CONNEC (u,cs) 
u unit designator. | 


cs optional character set designator (applicable to NOS BE 1 only): cs is an integer with a value 
from 0 to 2. in accordance with the character set to be used for the data entered or displayed 
at the terminal: 


0 display code (default) 
1 ASCII-95 
= ASCII-256 code 


cs should not be specified if the installation character set jis a 63-character set. 


If a FORTRAN program to be run under INTERCOM for NOS‘BE }, under the NOS ] Time-Sharing Svstem. 
or under HELLO™ for SCOPE 2. calls for input output operations through the user's remote termina). al! files | 
to be accessed through the terminal must be formally associated with the terminal at the time of execution. 


In particular. the file INPUT must be connected to the terminal if data is to be entered there and an alternate 
Jogical unit is not designated in the READ statement. The file OUTPUT must be connected to the terminal if 
execution diagnostics are to be displayed or printed at the terminal. or if data is to be displayed or printed there 
and an alternate unit is not designated in the WRITE or PRINT statement. These files are automatically connected 
to the terminal when the program 1s executed under NOS 1| or under the RUN command of the EDITOR utility 


of INTERCOM. 
Under HELLO’, any file can be connected by providing a FILE control statement specifying CNF = YES. 
Under INTERCOM, any file can be connected to the terminal by the CONNECT command. 


Under all three operating systems, the user can connect any file from within the program by using the CALL 
CONNEC statement. 


+ More information about INTERCOM is in the INTERCOM reference manual and the INTERCOM Interactive 
Guide for Users of FORTRAN Extended. More information about NOS 1 is in the NOS | Time-Sharing User's 
reference manual. Mote information about HELLO? is in the SCOPE 2 reference manual. 
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Under NOS 1, if CONNEC specifies an existing local file. the buffers for the file are flushed (if at 1s an output 
file) and the file is returned. A subsequent DISCON for the file causes the connected file to be returned, but the 
pre-existing file is not reassociated with the file name. ) 


If cs is not specified. it is set to O. If display code is selected, input output operations must be formatted. hist- 
directed, NAMELIST. or buffered. ) 


If either of the ASCII codes is selected. input output operations must be either formatted or buffered. When buffer 
input output is used. either a FILE control statement (section 16) specifying RT=S must be provided. or blanks 
cannot terminate a line. 


When a CALL CONNEC specifies a file already connected with the character set specified, the call is ignored. If 
the file specified 1s already connected with a character set other than that specified. cs is reset accordingly. 


Data input or outpu: through a terminal under INTERCOM 13s represented ordinanl, in a CDC 64-character o: 
ASCII 64-character set. depending on installation option For these sets. ten characters in 6-bit display code 
are stored in each central memory word As described above. a termina! user can specify from within a 
FORTRAN program that data represented in an ASCI) 9S-character set (providing the capabilin for recog- 
mizing lowercase letters) or an ASCII] 2Se-character set (providing the capability for recognizing lower-case 
letters. control codes, and panty) be input or output through the terminal. For the ASCII 9S-character and 
25o-character sets. characters are stored in five 12-bit bytes in each central memory word. Characters in the 
ASCII 9S5-character set are represented in 7-bit ASCII code mght justified in each byte with binary zero fill. 
characters in the ASCII 2So-character set are represented in 8-bit ASCII code right justified in each byte with 
binan zero fi = When data represented in either ASCII character set code is transferred with a formatted 
input Output statement. the maximum record length should be specified in the PROGRAM statement as twice 
the number of characters to be transferred (see section 7). Allowance should also be made in input output 
operations for the fact that interna) characters require twice as much space as external characters 


When the ASCII 95-character or 256-character set has been specified for terminal input output under INTER- 
COM. blanks following the end of data on each line are not translated into ASCII] code but are retained in 
display code (as 55,). Unless the user eliminates them. these blanks will appear on output as lowercase m 
characters (two blanks in display code translates to one m in ASCII code). For formatted input. the user 
can identify the end of data on a line by scanning data entered in nR2 format unti) the Holienth constant 
2Rbb (b = blank) is found. For buffered input. the end can be determined by reading the data into an 
array, manipulating it with a DECODE statement. and then scanning as with formatted input. 


For a FORTRAN program run under NOS 1, any file can be connected to the terminal by the ASSIGN com- 
mand. In addition, the user can connect any file from within the program by using the statement: 


CALL CONNEC (u) 


Data input or output through a terminal under NOS 1 is represented ordinarily in a standard 61-character set 

However, the user can elect to have data represented in an ASCI] 128-character set (which provides the capa- 

bility for recognizing control codes and lowercase, as well as uppercase. letters) by entering the ASCII com- 

mand. Characters contained in the standard set are stored internally in 6-bit display code, whether or not ) 
the ASCII command has been entered The additional characters which complete the ASCII 1!28-character set 

are stored internally in 12-bit display code if the ASCII command has been entered, otherwise, they are 

mapped into the standard 6I-character set and stored internally in 6-bit display code. > 


Under any system. if a file specified in a CALL CONNEC exists as a local file but is not connected at the 
time of the call, the file’s buffer 1s flushed before the file ts connected to the terminal 
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CALL DISCON (u) | 
This subroutine disconnects a file from within a FORTRAN program. 


This request is ignored if the specified file is not connected. After execution of this statement, the specified 
file remains local to the terminal. In addition, if the file existed prior to connection, the file name is 
re-associated with the information contained on the device where the file resided prior to connection. Data 
written to a connected file is not contained in the file after it is disconnected. 


All files to be connected or disconnected during program execution must be declared in the PROGRAM state- 
ment. An attempt to connect or disconnect an undeclared file results in a fatal diagnostic. 


Calls to CONNEC and DISCON are recognized and ignored when programs are not executed under INTERCOM 
or interactively under NOS 1. 


Examples: 
CALL CONNEC (6) 


K = @L AGES 
CALL CONNEC (Kk) 


CALL CONNEC (602) 
CALL CONNEC (4LDATA9)) 


CALL DISCON (6) 


MASS STORAGE INPUT/OUTPUT 


Mass storage input/output (MSIO) subroutines allow the user to create, access, and modify files on a random basis 
without regard for their physical positioning. Each record in the file can be read or written at random without 
logically affecting the remaining file contents. The length and content of each record are determined by the user. 
A random file can reside on any mass storage device. Record Manager word addressable file organization is used to 
implement MSIO files. The Record Manager reference manual contains details of word addressable implementation. 


A file processed by mass storage subroutines should not be processed by any other form of input/output. | 


RANDOM FILE ACCESS 


Random file manipulations differ from conventional sequential file manipulations. In a sequential file. records 
are stored in the order in which they are wntten. and can normally be read back only in the same order. 

This can be slow and inconvenient in applications wher. the order of writing and of retrieving records differ 
and, in addition. it requires a continuous awareness: of the current file position and the position of the required 
record. To remove these limitations. a randomly accessible file capability 1s provided by the mass storage 
input/output subroutines. 


In a random file, any record may be read. written or rewntten directly. without concern for the position or 
structure of the file. This is possible because the file resides on a random-access mass storage device that can 
be positioned to any portion of a file. Thus, the entire concept of file position does not apply to a random 
file. The notion of rewinding a random file is, for instance, without meaning. 
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To permit random accessing. each record in a random file is uniquely and permanently identified by a record 
key. A key is an 18- or 60-bit quantity, selected by the user and included as a parameter on the call to 
read or write a record. When a record is first written, the key in the call becomes the permanent identifier 
for that record. The record can be retrieved later by a read call that includes the same key, and it can be 


updated by a write call with the same key. 


When a random file is in active use, the record key information is kept in an array in the user's field length 
The user is responsible for allocating the array space by a DIMENSION, type, or similar array declaration 
Statement, but must not attempt to manipulate the array contents. The array becomes the directory or index 
to the file contents In addition to the key data, it contains the word address and length of each record in 
the file The index is the logical link that enables the mass storage subroutines to associate a user cal] key 


with the nardware address of the required record. 


The indea is maintained automatically by the mass storage subroutines. The user must not alter the contents 
of the array containing the index in any manner: to do so may result in destruction of the file contents. 

(In the case of a sub-index. the user must clear the array before using it as a sub-index, and read the sub- 
index into the array if an existing file is being reopened and manipulated. However. individua! index entries 


should not be altered.) 


Under NOS'BE 1 and SCOPE 2. when a permanent file that was created by mass storage input-output routines 
is to be madified. the EXTEND control statement should be used to ensure that the new index is made 


permanent. 


In response 10 a call to open the file. the mass storage subroutine automatically clear the assigned index array 
If an existing file is being reopened, the mass storage subroutines locate the master index in mass storage and 
tread it into this array. Subsequent file manipulations make new index entries or update current entnes 

When the file is closed. the master index is written from the array to the mass storage device When the file 
is reopened. by the same job or another job. the index is again read into the index array space provided su 


that file manipulation may continue. 


MASS STORAGE SUBROUTINES 


Object time input/output subroutines control the transfer of records between centrai m#mory and mass storage 


OPENING A FILE 


OPENMS opens the mass storage file and informs the system that it is a random (word addressable) file. 


CALL OPENMS (u,ix,Ingth,t) 


u Unit designator. 
ix Name of the array containing the master index. 
Ingth Length of master index 
for a number index: Ingth = (number of entries in master index) + }! 
for a name index: Ingth » 2 * (number of entries in master index) + } 
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t Typ: of index. 
t= 0 file has a number master index 
t= 1 file has a name master index 


The array (ix) specified in the call is automatically cleared to zeros. If an existing file is being reopened. the 
master index is read from mass storage into the index array. 


DIMENSION [(11) 


| Example: 
| CALL OPENMS (5,1,11,0) 
{ 


These statements prepare for random input‘output on the file TAPES using an 11-word master index of the 
number type. If the file already exists. the master index is read into memory starting at address | 
WRITING RECORDS 

WRITMS transmits data from central memory to the file. 


CALL WRITMS (u,fwan.k,¢,s) 


u Unit designator 

fwa Name of the array in central memory (address of first word) 
n Number of 60-bit words to be transferred. 

k Record key. 


for number index: 1&k €Ingth - | 
for name index k = any 60-bit quantity except +0 
t Rewrite. | 


r= 1 Rewrite in place. Unconditional request; fatal error occurs if new record 
length exceeds old record length. 


i 
r=-J Rewrite in place if new record length does not exceed old record length, | 
otherwise write at end of information. 


r=0 No rewrite, write at end of information (default value). 
s Sub-index flag. 
s= 1 Write sub-index marker flag in index control word for this record 


s=0 Do not write sub-index marker flag in index control word (default value) 
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Except under SCOPE 2. Record Manager operates more efficiently if n is always a multiple of 64. The 1 
parameter can be omitted if the s parameter is also omitted. The s parameter is for future file editing 
routines Current routines do not test the flag. but the user should include this parameter in new programs 
(when appropnate) to facilitate transition to a future edit capability. 


Example. 

CALL WRITMS (3,0ATA 25,6,1) 
This statement unconditionally rewrites in place of file TAPE3. starting at the address of the array named 
DATA. a 2S-word record with an index number key of 6. The default value is taken for the s parameter. 
READING RECORDS 
READMS transmits data from the file to central memory. 


CALL READMS (u,fwa,n,k} 


u Unit designator 
fwa Name of the array in central memory (address of first word) 
n Number of 60-bit words to be transferred. If nis less than the record length. n_ words 


are transferred without diagnostic. 
k Record key 
for number index: k = 1] ©k €Ingth - 1 
for name index k = any 60-bit quantity except +0 


Except under SCOPE 2. Record Manager operates more efficiently if n is always a multiple of 64. 


Example 
CALL READMS (3,0AT AMOR, 25, 2) 
This statement reads the first 2§ words of record 2 from unit 3 (TAPE3) into central memory starting at the 


address of the array DATAMOR 


CLOSING A FILE 


CLOSMS writes the master index from central memory to the file and closes the file. CLOSMS is provided to 

close a file so that it can be returned to the operating system before the end of a FORTRAN run, to preserve 

a file created by an experumental job that might subsequently abort, or for other special purposes. In an over- 
| lay program, a mass storage file must be closed explicitly by CLOSMS. 


CALL CLOSMS (u) 


Unit designator 


Example: 
CALL CLOSMS (2) 


This statement closes the file TAPE?. 


SPECIFYING A DIFFERENT INDEX 


STINDX selects a different array to be used as the current indea to the file. The call permits a file to be 
manipulated with more than one index. For example, when the user wishes to use a sub-index instead of 
the master index. STINDX is called to select the sub-index as the current index. The STINDX cal! does not 
cause the sub-index to be read or written: that task must be carried out by explicit READMS or WRITMS 
calls. It mere!y updates the internal description of the current index to the file. 


CALL STINDX (u,ix,Ingth,t) 


u Unit designator. 
in Name of the array in centrai memory containing the sub-index (first word address). 
Ingth Length of sub-indes 


for a number index’ Ingth 2 (number of entries in sub-inden} + 1 
for a name index. Ingth 2 2 * (number of entries in sub-index) + ] 


' Type of index If omitted. t is the same as the current index. 


t= 0 File has a number sub-~index 


7 
" 


1 File has a name sub-index 
Example | 


OIMENSION SUBIX {10) 
CALL STINDX (3,SUBIxX, 10,0) 


These statements select a new index. SUBIX. for file TAPE3 with an index length of 10. The records rel- 
erenced via this sub-index use number keys. 


Example 2: 


DIMENSION MASTER (5) 
CALL STINDX (2MASTER,5) 


These statements select a new index, MASTER, from file TAPE? with an index length of 5 and inde type 
unchanged from the last index used. 
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COMPATIBILITY WITH PREVIOUS MASS STORAGE ROUTINES 


FORTRAN Extended mass storage routines and the files they create are not compatible with mass storage 
routines ar; files created under versions of FORTRAN Extended before version 4. Major interna) difference: 
in the file structure were necessitated by adding the Record Manager interface. However, source programs are 
fully compatible. Any source program that compiled and executed successfully under earlier versions will du: 
so under this version. provided that all file manipulated by mass storage rouunes are mamipulated only by 
these routines 


FORTRAN—CYBER RECORD MANAGER INTERFACE 


The CYBER Record Manager intertuce subroutines correspond closely to the CYBER Record Manager COMPASS 
macros The names are different in some cases. and the parameters are not necessarily specified in the same order 
but the processing performed by each subroutine is for the most part the same as the corresponding COMPASS 
Mare 


Only u summan of the format. parameters. and purpose of each subroutine is given here. The differences ir 
usage of these routines among the five file orgamizations are noi discussed. In order to use these routines. it 1 
necessan to refer to the CYBER Record Manager Guide for Users of FORTRAN Extended 


The user can either allocate buffers within a program block or allow CYBER Record Manage: to allocate them 
dynamically wher. the file 1s opened 


To allocate a buffer within the program block. an array must be dimensioned and the length and position ot 
the array specified by the BFS and FWB fields of the file information table If either of these fields is ze: 
wher the file is pened. CYBER Record Manage: allocates a buffer in central memory following the evecut- 
at... de and blank common (if declared) In an overlay program. dynamically allocated buffers are assigned 
to memory beyond the last word address of the longest overlay chain 


These routines are available unde; NOS BE ] and NOS |. but not under SCOPE 2 


PARAMETERS 


The first parameter in the call to every subroutine is the name of the array containing the file intourmation tabie 
being processed This atray shauld be dimensioned 35 words long: 20 words for the file information tabic 
itsel! and 1S for the file environment table Any other parameters can be omitted. default values are supplied 
by CYBER Record Manage:. With the exception of FILExx. parameters are identified strictly by posits: 
thus. parameters can be omitted only trom the nght. 


When a program is compiled with OPT=2. wsa must be specified on all calls to GET. GETP. and GETN  Alse. 
ka must be specified on calls to GETN and PUT for indexed sequential. direct access. and actual hey flies 


Most of the parameters establish values for file information table fields CYBER Record Manager always uses 
the most recent! value established for a field. if a parameter is omitted. the previous contents of the fiele are 
used instead 


If the same subroutine is called twice in the same program unit with a different number of parametcis am 
informative diagnostiy 1s issued by the compiler 
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Values for parameters can be: 


Array or vanable names. identifying areas used for communication between the user program and 
CYBER Record Manager 


Subprogram names for user owncode exits (must be specified in an EXTERNAL statement} 
Integer values 


L format Hollenth constants. used to express symbolic options and to identify file information table 
fields 


The following mnemonics are used in the subroutine formats below. The precise meaning of any paramete: 
depends on the file organization of the file being processed, as wel! as the subroutine being called. Not al! 
parameters are applicable to all file organizations. 


fit Name of array containing file information table. Linked to the actual file by means of the 
LFN field 
wsa Working storage area A vanable, array, or array element name indicating the starting Jocation 


from which data is to be read or into which data is to be wnitten. 
pd Processing direction established when file is opened: 
SLINPLT Read only 


6LOUTPUT Write only 


3U-0 Read and wnie 

3LNEW File creation (indexed sequential, direct access. actual key only) 
of File positioning at open time: 

1LR Rewind 

1LN No file positioning 

ILE Extend, file is positioned immediately before end of informaton 
cf File positioning after close: 

iLR Rewind 

1LN No positioning 

IW Unload 
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type 


ka 


wa 
kp 
mk! 
rl 
ey 


dx 


pos 


count 


ptl 


skip 


lev 
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Type of close (not a file information table field) 
4LFILE File close 
6LVOLUME Volume close 


Location of key for access to record in a direct access. indexed sequential. or actual key 
file. For GETN. key is retumed to this location. 


Location of word address for read or write of record in a word addressable file 


Character position (0 through 9) within word designated by ka in which key begins (direc: 
access, indexed sequential only) 


Major key length (indexed sequential only). 
Record length in characters for record to be read or written. 
Name of user owncode error exit subroutine 
Name of user owncode data exit subroutine 


For duplicate key processing 


1LP Write record preceding current record 

1LN White record as next record 

ILC Delete or replace current record 

0 Delete or replace first record in duplicate key chain 


Number of records to be skipped: positive count indicates forward skip. negative count indi- 
cates backward skip. zero count should not be used. 


Number: of characters to be used for a partial read or wnite. 
Positioning before execution of GETP: 

0 Continue reading at current position 

4LSKIP Skip to beginning of next record before reading 


Level number for end of section. 0 to 17. 


SUBROUTINES 


| In the subroutine formats below. braces are used to indicate that more than one parameter occupies the same 
positon In all cases, these parameters are applicable to mutually exclusive file organizations. 


CALL FILExx (fit, keyword,, walue,, ... ,keyword,. value, ) 


xx 1s §Q (for sequential files}. IS (for indexed sequential files). DA (for direct access files). AK (for actual 
kev files) or WA (for word addressable files) 


All parameters. with the exception of fit. are paired. The first parameter in each pair is the name of a file 
information table field. in L format. The second parameter of each pair is the value to be set in that field 
CALL FILExx must be executed before the file is opened 

CALL STOREF (fit, keyword, value) 
STOREF specifies a value for a single file information table field. 11 can be called before or after the file 1s 


opened? The keyword 1s the name of a file information table field. in L format, and value is the value to 
be placed in that field 


IFETCH (fit, field) 
JFETCH 3s an integes function that returns the current value of a single file information table fieid A one- 
bit field is retumed in the sign bit: if the bit 1s 1. the value cf the function is negative. if the bit as O. the 
value of the function is positive 


CALL OPENM(fit,pd,of) 


OPENM opens a file and prepares it for furthe: processing Only FILExx. STOREF. anc IFETCH car precede 
execution of CALL OPENM 


CALL CLOSEM (fit,cf,type) 


CLOSEM closes the file after all processing has been completed Oni, STOREF and IFETCH can fouiow 
execution of CLOSEM 


CALL GET (fit, wsa, oe \ ap mk ‘a ; ) 
wa dx 


GET reads a record and returns 11 to the working storage area (wsa) The last parameter specifies dx fo: 
sequential files. ex for all other files 


CALL PUT(fit, wsa,ri, { 2 \ kp, pos,ex) 


PUT writes a record to the file from the working-storage area (wsa) 
CALL GE TP(fit,wsa,pt!,skip,dx} ) 


GETP reads a partial record. The number of characters to be read 1s indicated by ptl 
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CALL PUTP(fit,wsa pti ri,ex) 


PUTP writes a partial record The number of characters to be wntten by this write is indicated by ptl. the 
total number of characters to be written ts grven by 1) (required only for record types U, W, and R) 


CALL GETN(fit,wsa,kaex) 


GETN reads the next record in sequennal order from an indexed sequential, direct access. or actual kev file 
The key of the record read is placed in ka after the read 


CALL OLTE(fitka,kp,pos,ex) 


DLTE deletes a record from an indexed sequential. direct access. or actual key file. The key of the record 
to be deleted is in the Jocanon specified by ka 


CALL REPLC(fit, wsa,ri,ka,kp,pos,ex) 
REPLC replaces a record on an indexed sequential. direct access. or actual key file. The key of the record 
to be replaces is in the Jocation specified by ka. the new record is in the working storage area indicated 
by wsa 


CALL CHECK(fit) 


CHECK determines whether input output operations on a file are complete and upon completion returns 
control 


CALL WEOR(fit,lev) 
WEOR terminates a section or partition, or S type record 
CALL WTMK (fit) 
Writes a tape-mark (equivalent to end of partition) 
CALL ENDFILE(fit) 
Writes an end of partition 
CALL REWNDifit) 
REWND positions a tape file to the beginning of the current volume. It positions a mass storage file to the 
beginning of information 
ERROR CHECKING 


CYBER Record Manage: interface routines perform limited error checking to determine whether the cal! can 
be interpreted. but actual parameter values are not checked 
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FILE INFORMATION TABLE PARAMETERS E 


Table E-1 shows the format of the file information table. A complete explanaticn of the meaning of all fields 
appears in the Record Manager Reference Manual. 


Remaining tables describe most FIT fields pertinent to application programs for the various file organizations 
Other parameters may be applicable under special circumstances, particularly for systems programmer uses 
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APPENDIX D 
MPP CALLS TO SITE DEPENDENT SOFTWARE 


Appendix D presents full FORTRAN compilation listings of all program 

elements that reference possible site dependent software from program MPP. 

| These listings are included to assist the user in the event major modifications are 
| needed when adapting to the appropriate subroutine calls at the bench mark site. 
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APPENDIX E 


AUTO-OCEAN CALLS TO SITE DEPENDENT SOFTWARE 


Appendix E presents full FORTRAN compilation listings of all program 
elements tnat reference possible site dependent software from program AUTO- 
OCEAN. These listings are included to assist the user in the event major 
modifications are needed when adapting to the appropriate subroutine calls at 
the bench mark site. 
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APPENDIX F 
NEWPE CALLS TO SITE DEPENDENT SOFTWARE 


Appendix F presents full FORTRAN compilation listings of all program 
elements that reference possible site dependent software from program NEWPE. 
These listings are included to assist the user in the event major modifications are 
needed when adapting to the appropriate subroutine calls at the bench mark site. 
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APPENDIX G 


a] 


SYNACC CALLS TO SITE DEPENDENT SOFTWARE 


Appendix G presents full FORTRAN compilation listings of al! program 
elements that reference possible site dependent software from program 
SYNACC,. These listings are included to assist the user in the event major 


modifications are needed when adapting to the appropriate subroutine calls at 
the bench mark site. 
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APPENDIX H 


INTERACT CALLS TO SITE DEPENDENT SOFTWARE 


Appendix H presents full FORTRAN compilation listings of all program 
elements that reference possible site dependent software from program 
INTERACT. These listings are included to assist the user in the event major 
modifications are needed when adapting to the appropriate subroutine calls at 
the bench mark site. 
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